open OUT, ...
print OUT $file;
close OUT;
rename ...