Select Code to Download

C:\test>perl -E"sleep 1 for 1..120; say join ' ', times"
0 0.015 0 0

C:\test>perl -MTime::HiRes=time -E"$t=time; sleep 1 for 1 .. 10*60; pr
+int (time()-$t) - 10*60"
601.386687040329