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);
}