use File::Copy qw( copy );

copy($old, "$old.bak")
   or die("Unable to backup \"$old\" to \"$old.bak\": $!\n");
rename($new, $old)
   or die("Unable to replace \"$old\" with \"$new\": $!\n");