Help for this page

Select Code to Download


  1. or download this
    use warnings;
use strict;
...
my $end = new Benchmark;
my $diff = timediff ($end, $start);
print "The code ran for \n",timestr($diff),"\n";
  2. or download this
    19 wallclock secs (17.36 usr +  0.94 sys = 18.30 CPU)
  3. or download this
    21 wallclock secs (21.23 usr +  0.63 sys = 21.86 CPU)