rename($file, $newfile) || print "Don't have permission to rename: $!\n";