use Time::HiRes qw(gettimeofday tv_interval);
   $t0 = [gettimeofday];
   $elapsed = tv_interval($t0)