open CHILDOUT, ">test.txt"; select CHILDOUT; system('perl -le "print q(Hello!)"');