##Extremely simple code
for $x ('A'..'Z') {
 if ($pid=fork) {
   ## This child checks the letter $x
   exit;
 }
}

##</code><code>##

$tmpfile = "/tmp/results.$^T$$";
for $x ('A'..'Z') {
  if (fork) { ## We don't need to know PID in this example
    $results = &SpellCheck($x);
    if (open (TMPFILE, ">> $tmpfile")) {
      print TMPFILE "$x|$results\n";
      close(TMPFILE);
    }
    exit; ## Done with this child
  }
}
## Wait for all the children to finish, then...

if (open (TMPFILE, $tmpfile)) {
  @results = <TMPFILE>;
  close(RESULTS);
  sort(@results); ## Works well for this example!!
}