if ( kill 0 => $child )
{   $children++;
    ...
}
else
{   my $ret = &make_child( );
    ...
}