Select Code to Download

#!/usr/bin/perl
use POSIX qw(pause);
...
    print "child about to exit\n";
    exit;
}

hbo@owen|1337> perl test
child is about to signal parent (at 24421)
child signaled 0 process(es)
child about to exit

hbo@owen|1338> perl test
child is about to signal parent (at 24428)
parent woke up
child about to exit
parent reaped child