for ( [snip] ) {
  $pid[$_] = fork;
  if ($pid[$_]) {
      [snip]
  } else {
      # ping some hosts
      exit;   # <-- important that your children exit...
  }
}