use Time::HiRes qw( gettimeofday tv_interval );

my $t0      = [gettimeofday()];
...
my $elapsed = tv_interval( $tv );