sub REAPER { # don't work almost on windows
        while (($child = waitpid(-1,WNOHANG)) > 0) {}
        $SIG{CHLD} = \&REAPER;
}

$SIG{CHLD} = \&REAPER;