use Benchmark; 
my $t0 = new Benchmark; 

# See code run 

my $t1 = new Benchmark; 
my $td = timediff($t1, $t0); 
print timestr($td) . "\n";