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