Select Code to Download

#!/usr/bin/perl

...
my $t1 = Benchmark->new;
my $td = timediff($t1, $t0);
print "the code took:",timestr($td),"\n";