perl -e '
my $times = 5000; print "Starting: " . localtime() . "\n";
for (1..$times) {
   select undef,undef,undef,1/$times;
}
print "Done: " . localtime() . "\n";
'
Starting: Fri Feb 24 10:54:56 2006
Done: Fri Feb 24 10:55:06 2006