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