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

##</code><code>##

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

##</code><code>##

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