$s->wait_children;
  $s->pre_fork;
  if ($s->{max_proc}) {
    my $pid=fork();