Select Code to Download

open FILE, '<', $file;
my $nfile = $file . '.new';
...
    close OFILE;
    rename $file, $file . '.bak';
    rename $nfile, $file;