Select Code to Download

# Uses RunPipe_PerlMonks module to run and trap failures in piped comm
+ands.
use strict;
...
{
    print "Failed! cmd = '$failed_cmd'\n";
}

package RunPipe_PerlMonks;
use strict; use warnings;
...
}

1;

# This version uses subs instead of classes.
use strict;
...
{
    print "I'm child #1\n";
}

I'm child #1
I'm child #2
waitpid1 (in child #2) = '-1'
waitpid1 (in parent #2) = '25341'