Select Code to Download

         use Benchmark;
         $t0 = new Benchmark;
         # ... your code here ...
         $t1 = new Benchmark;
         $td = timediff($t1, $t0);
         print "the code took:",timestr($td),"\n";

use strict;
use Benchmark;

...
my $min = int($sec/60);
$sec = $sec - $min*60;
printf ("also known as %d:%02d", $min, $sec);