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; print (time()-$t) - 10*60" 601.386687040329