Select Code to Download

open OLD, $oldfile or die;
open NEW, "> $oldfile.new" or die;
...
}
rename ("$oldfile", "$oldfile.old") or die;
rename ("$oldfile.new", $oldfile) or die;