Select Code to Download

use File::Slurp;
use Benchmark qw(cmpthese);
...
             });

sub is { local (@ARGV, $/) = $_[0]; <> };

$ perl -e 'print "x"x500' > foo
$ perl benchmark
...
     Rate   is   fs
is 29.5/s   -- -17%
fs 35.6/s  21%   --