No point in invoking a shell there, when this will do:

my $fh = FileHandle->new or die "Cannot create filehandle: $!";
defined(my $pid = open($fh, "-|")) or die "Cannot fork: $!";
unless ($pid) {
print <<'EOD';
One fish 
Two fish 
Red fish 
Blue fish 
EOD
exit 0;
}
print $_ while <$fh>; # in parent
[download]

But again, this forks (as does yours), and it's much better to use IO::Stringy to do it all within one process.

-- Randal L. Schwartz, Perl hacker