use Time::HiRes qw(time);
   $t0 = time;
   $elapsed = time - $t0;