Select Code to Download

open OLDFILE, $oldfilename 
 or die "Can't open $oldfilename: $!\n";
...
 or die "Can't move $oldfilename: $!\n";
rename ("$oldfilname.new", $oldfilenme)
 or die "Can't create new $oldfilename: $!\n";