Select Code to Download

use Fcntl;
use Benchmark qw(cmpthese);
...
        }
      }
);

> uname -a
Linux linux.local 2.4.16 #4 Mon Dec 10 08:26:03 PST 2001 i586 unknown
...
sysby256 170/s      39%       5%       --      -1%      -3%
sys      172/s      39%       5%       1%       --      -3%
sysby512 176/s      43%       8%       4%       3%       --

> perl index.pl
Benchmark: timing 1000 iterations of slurp, sys, sysby128, sysby256, s
+ysby512...
...
sysby256 143/s      39%       3%       --      -0%      -2%
sys      143/s      39%       3%       0%       --      -2%
sysby512 146/s      42%       5%       2%       2%       --