Select Code to Download

#!/usr/bin/perl
use strict;
...
        $handle_size, length $buffer
}
__END__

1)  dos1 ( ): File size       9, Read length       6,
            : Handle size     9, Buffer length     6,
...
            : Handle size 20069, Buffer length  4716,
6) p.exe (b): File size   20069, Read length   20069,
            : Handle size 20069, Buffer length 20069,

1)  dos1 ( ): File size       9, Read length       9,
            : Handle size     9, Buffer length     9,
...
            : Handle size 20069, Buffer length 20069,
6) p.exe (b): File size   20069, Read length   20069,
            : Handle size 20069, Buffer length 20069,

#!/usr/bin/perl
use strict;
...
    close IT;
}
__END__

Processing a text file, 100 bytes long
Benchmark: running read, slurp, sysread, each for at least 20 CPU seco
+nds...
...
slurp   460/s      --    -21%    -35%
read    585/s     27%      --    -18%
sysread 710/s     55%     21%      --