Help for this page
fork ...etc close(STDOUT); ...etc setsid();
$kidpid=open($fh,"-|"); #err handling omitted if ($kidpid) { ... print "hello parent\n"; exit; }