Select Code to Download

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