perl -we 'use Time::HiRes qw"time sleep"; use IO::Handle; $length = 60/$ARGV[0]; my $next = time; for (;;) { $next += $length; $now = time; sleep($next - $now); printflush STDOUT "\a."; }' 80