$ cat pore.pl 
#!/usr/bin/env perl 
use strict;
use warnings;
use Benchmark 'cmpthese';

open my $fh, '>', '/tmp/wp.txt' or die $!;
cmpthese (10000,
	{
		'print' => sub { print $fh "x\n"; },
		'echo'  => sub { system "echo x >> /tmp/we.txt"; }
	}
);
close $fh;
exit;
$ perl pore.pl 
            (warning: too few iterations for a reliable count)
                        Rate                 echo                print
echo                   317/s                   --                -100%
print 10000000000000000000/s 3153000000000000000%                   --