$a = "some CGI data <<script blah blah evil stuff";
open (F, ">>file.txt");
print F $a;