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

##</code><code>##

$kidpid=open($fh,"-|"); #err handling omitted
if ($kidpid) {
  while(<$fh>) {print;}
  close($fh); # implicit waitpid
} else {
  print "hello parent\n";
  exit;
}