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