sub REAPER {
    my $pid;
    while(( $pid = waitpid(-1, WNOHANG)) > 0) {
        # Do stuff
    }
    $SIG{CHLD} = \&REAPER;
}