#!/usr/bin/perl -w
use strict;

open PIPE, "./foo.pl |";
my @output = <PIPE>;
close PIPE;

print "error: $?\n" if $?;
print "output: $_" foreach @output;
print "\nend.\n";