...
open(FILE, ">$file") || die $!;
... [stuff]
close(FILE);
chmod 0666 $file;