open SRC "> file";
# print lots of stuff
close SRC;