Select Code to Download

use File::Copy; # for move()
open my $of, '<', $old_file or die "Can't read $old_file: $!";
...
close $nf;
close $of;
move $new_file, $old_file;