for my $i(@nodes) {
  if ($fork) {
    if ($pid = fork) {
      next;
    } elsif (defined($pid)) {
      &do_something;
      exit;
    } else {
      warn "Problem found in forking\n";
    }
  } else {
    &do_something;
  }
}

while (wait() != -1) {
  return 1 if ($?);
}