Select Code to Download

           Rate    join    argv  hybrid linesep sysread
join     5459/s      --    -44%    -71%    -81%    -91%
argv     9690/s     78%      --    -49%    -67%    -85%
hybrid  19084/s    250%     97%      --    -34%    -70%
linesep 29070/s    433%    200%     52%      --    -55%
sysread 64103/s   1074%    562%    236%    121%      --

#!/usr/bin/perl -w

use strict;
...
    my $content = 
        do { local(*ARGV, $/); @ARGV = ($file); <> } 
}