fix my Perl script

The attached Perl script works fine except when the folder name contains foreign characters. I need a fix using only general-purpose techniques (e.g. no one-time hack). Also, I can accept a rewrite in Java. See attached zip file. ## Deliverables the Perl version is 5.12 from ActiveState * * *This broadcast message was sent to all bidders on Friday Dec 24, 2010 2:44:14 PM: The purpose of the script is to rename all media files (with names starting IMG and MVI) so that the final file name contains the name of the parent folder. e.g. X\[login to view URL] becomes X\X [login to view URL] * * *This broadcast message was sent to all bidders on Friday Dec 24, 2010 6:35:11 PM: Hello, I have found the solution, which is to type "chcp 1252" before executing the script. So I'm canceling the project.