sub reapchild
{
    # already using POSIX, right??
    0 while waitpid(-1, &WNOHANG) > 0;
}
$SIG{CHLD} = \&reapchild;