Select Code to Download

fork ...etc
close(STDOUT); ...etc
setsid();

$kidpid=open($fh,"-|"); #err handling omitted
if ($kidpid) {
...
  print "hello parent\n";
  exit;
}