Select Code to Download

#!/usr/bin/perl 
use strict;
...
my $t1 = Benchmark->new;
my $td = timediff($t1, $t0);
print "the code took:",timestr($td),"\n";