use POSIX;
my $do_fork = 1;
$SIG{CHLD} = sub {
    while( ( my $pid = waitpid(-1, POSIX::WNOHANG()) ) > 0 ){
        ...
    }
}