Select Code to Download

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

sub hex_dump {
   unpack "H*", $_[0];
}
print "\$oldname = [", hex_dump($oldname), "]\t";
print "\$newname = [", hex_dump($newname), "]\n";

$newname =~ tr/a-zA-Z0-9\.//cd;