Perl Tips

High-Resolution Timer (Perl での細かいタイマー) について。普通の
sleep だと待ち時間を 1 秒単位でしか指定できない。そこで、
Time::HiRes <http://search.cpan.org/dist/Time-HiRes/> を使うとより
細かく待ち時間を指定できる。(Perl Cookbook より)

use Time::HiRes qw(sleep);
my $n = shift @ARGV;
for (my $i = 0; $i < $n; $i++) {
    print "\x07"; # beep
    sleep(0.25);
}