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

# your code here

print "Time elapsed: " . (tv_interval( $t0 )) . " seconds\n";