if ($success){
   print "Changed [$oldname] to [$newname]\n"
}
else {
   print "Failed to rename [$oldname] to [$newname] $!\n";
   exit
};