#!/usr/bin/perl -w

use FileHandle;
use strict;

my $string =<<EOD;
One fish
Two fish
Red fish
Blue fish
EOD

my $fh = new FileHandle("echo \'$string\' |") or die;

print $_ while <$fh>;