Select Code to Download

Benchmark: running BufferedFileHandle, chunk, linebyline, each for at 
+least 3 CP
U seconds...
...
     chunk:  4 wallclock secs ( 2.89 usr +  0.32 sys =  3.21 CPU) @  <
+b>4.36/s</b> (n=14)
linebyline:  4 wallclock secs ( 3.25 usr +  0.06 sys =  3.31 CPU) @  <
+b>2.72/s</b> (n=9)

#!/usr/bin/perl

...
  while(<$fh>) { }
  close(FILE);
}