Select Code to Download

#!/usr/bin/perl
use strict;
...
    'Backtick' => sub{`echo plenty of fish` for 1 .. 10},
    'Open' => sub{for (1 .. 10){open my $fh, "echo plenty of fish |"; 
+<$fh>}},
});

           Rate     Open Backtick
Open     9.29/s       --      -1%
Backtick 9.35/s       1%       --

           Rate     Open Backtick
Open     85.8/s       --     -10%
Backtick 95.7/s      11%       --