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