my $pid = open X, '-|', 'echo foo; exit 42' or die $!;
my $out = <X>;
my $ok = close X;

print  STDERR "out=$out";
printf STDERR "\$?=%s\n", $? >> 8 unless $ok;

__END__
out=foo
$?=42