rename ( $oldfile, "$oldfile.bak" ) or die $!;
rename ( $newfile, $oldfile ) or die $!;