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