open my $fh, "cat |" or die;
while (<$fh>) {
    print "Got: $_";
}
close $fh or die;
__END__
foo
Got: foo
bar
Got: bar
baz
Got: baz
^D