Select Code to Download

#!/usr/bin/perl

...
timethese(100,{ 'line' => \&line_by_line,
                'block' => \&block
              });

Benchmark: timing 100 iterations of block, line...
     block: 32 wallclock secs (32.52 usr +  0.36 sys = 32.88 CPU) @  3
+.04/s (n=100)
      line: 19 wallclock secs (17.92 usr +  0.16 sys = 18.08 CPU) @  5
+.53/s (n=100)