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