my $queue = [];
sub REAP {
    my $kidpid;
    while(($kidpid = waitpid(-1,WNOHANG)) > 0) {
        #p rint "reaped $kidpid\n";
        push @$queue, [ $kidpid, $? ];
    }
}
$SIG{'CHLD'} = \&REAP;