clort81

#! /usr/bin/env perl
use strict;
use warnings;
use utf8;
use feature qw(say);
use experimental qw(signatures);
use List::Util qw(max any);
use Term::ReadKey qw(GetTerminalSize);
use Time::HiRes qw(sleep);
*STDOUT->binmode(':encoding(UTF-8)');

clort81

#!/bin/bash
# 255                              mysmps                      SIMPLE SAWTOOTH SOUND
#                         <----------------------->            \/\/\/\/\/\/\/\/\/\/\
#                         .                       .            A beep for bash shell
#                         |               mypeak  |            for machines without
# \                       |                       /\           pc speaker beep \007.
#   \                     |                     /    \ 
#     \                   |                   /        \       It requires alsa and
#       \                 |                 /            \     'play' via alsautils.
#         \               |               /                \