Select Code to Download

use Benchmark;

...
my $end2 = Benchmark->new();
my $diff2 = timediff($end2, $start2);
print "Section 2: ", timestr($diff2);

use Benchmark;

...
foreach my $b (keys %benchs) {
    print "$b: " ,timestr(timediff($benchs{$b}{end}, $benchs{$b}{start
+})),"\n";
}