Help for this page
if ($pid=fork() ) { select(undef,undef,undef,.1); open (STDOUT, ">test.txt"); ... } else { print "child\n"; }
if ($pid=fork() ) { #select(undef,undef,undef,.1); print "parent\n"; ... open (STDOUT, ">test.txt"); system("echo child"); }