open(FILE,">$file") or die $!;
print FILE ...;