open FILE, ">test.txt";
select FILE;

print <<DONE;
all that stuff again. I am
DONE