Select Code to Download

use POSIX ":sys_wait_h";
my $pid = open(INPIPE, "$reader_prog $options |") or die "open failed:
+ $!";
...
} else {
   print "child process $pid reaped, status is: $?\n";
}