use File::Copy qw/ move /;
move "$file.new", $file;