C:\test>perl -MTime::HiRes=time 
-E"sub t{1}; $t=time; $x=t()for 1..1e7; printf qq[%f\n], time()-$t"
3.305000