sig_child_handler

sub sig_child_handler {
    while ( ( $SIGCHLD_PID = waitpid( -1, WNOHANG ) ) > 0 ) {
        E3::dbprint("caught $SIGCHLD_PID\n" ) if $E3::DEBUG;
        if (exists $childPID{$SIGCHLD_PID}) {
            delete $childPID{$SIGCHLD_PID};
            if ($children_spawned > 0) {
                E3::dbprint("decrement children_spawned counter\n" ) if $E3::DEBUG;
            }
        } else {
            E3::dbprint("not our child\n" ) if $E3::DEBUG;
        } 
    }
    $children_spawned = scalar(keys(%childPID));
    $SIG{CHLD} = \&sig_child_handler;
}