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