use Time::HiRes qw(gettimeofday tv_interval);

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