write to file.

why won't this work?

#!/usr/bin/perl

open FILE,">/home/pcsc/tester/test1.txt" ||
die "error, cannot open file\n";
print FILE <<HTML;
test1, test2, test3
HTML
close FILE;