Select Code to Download

my $pid = open my $fh, "| $some_program"
    or die "Can't run '$some_program': $!\n";

#!/usr/bin/perl -w

...
}
__END__
file is 4782.tmp

$ cat 4782.tmp
parent (4782) here
child (4783) here
reaped PID 4783
parent (4782) waking up..