#!/usr/bin/perl
use strict;
use warnings;

use Benchmark qw(:all :hireswallclock) ;

cmpthese(20, {
    'Backtick' => sub{`echo plenty of fish` for 1 .. 10},
    'Open' => sub{for (1 .. 10){open my $fh, "echo plenty of fish |"; <$fh>}},
});

##</code><code>##

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

##</code><code>##

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