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

##</code><code>##

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