rename($file, $newfile) || print "Rename $file to $newfile failed: $!.\n";