use Time::HiRes qw(gettimeofday tv_interval);

my $t0 = [gettimeofday];
while (tv_interval($t0) < 1.23) {
   print "Yay!\n";
}
[download]

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.