open DF,">test.txt"; print DF @test; close DF; #### sysopen(DF,"test.txt", O_WRONLY | O_CREAT); syswrite DF,join('', @test); close DF;