sub cleanup {
    while ((my $kpid = waitpid(-1,WNOHANG)) > 0) {
        delete($kids{$kpid});
        $kidcount--;
    }
}