Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
    print "Processing time was...\n";
    print timestr(timediff($end, $start)) . "\n";
}
  2. or download this
    Loop using $ENV{PATH}: 12 wallclock secs ( 0.13 usr +  0.15 sys =  0.2
+8 CPU)
Loop using $foo: 11 wallclock secs ( 0.07 usr +  0.05 sys =  0.12 CPU)