Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
my $t;
$t = timeit(1, \&stuff);
print "Timings: ", timestr($t), "\n";
  2. or download this
    use strict;
use warnings;
...
my $t;
$t = timeit(1, \&stuff(1000000));
print "Timings: ", timestr($t), "\n";
  3. or download this
    Undefined subroutine &main::SCALAR called at (eval 2) line 1.