my %family_bible = ();
# @todo is an array of coderefs sub () {...;return $status}
for (@todo) {
    my $kid;
    defined $kid = fork  or last;
    $kid  or  exit &$_;
    $family_bible{$kid}++;
}
delete $family_bible{-wait} while %family_bible;