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