while (($openforks > 0) && (wait()))
{
    $openforks--;
    spawn(\@jobs);
    print "somebody died\n";
}