my %pid;
$SIG{CHLD} = sub {
    while((my $kid = waitpid(-1,WNOHANG))>0 ) {
        warn "PID $kid returned $?";
    }
};