if (-e $newfile) {
    print STDERR ("Warning: $filename would "
                  ."clobber $newfile, skipping\n");
} else {
    rename($filename, $newfile);
}