use Time::HiRes qw[time];

printf "%.6f\n", time for 1..10;
1054051486.970288
1054051486.980302
1054051486.990316
1054051487.000331
1054051487.010345
1054051487.010345
1054051487.020360
1054051487.030374
1054051487.040388
1054051487.050403