Select Code to Download

my( %pid );
...
  print "child $num spawned\n";
  print PARENT "child $num says hi\n";
}

my JAPH:
  print"Just another Perl hacker\n";
  #    ^ look, no space! pretty tricky huh?