As part of my first perl script project, i need to copy some folders (having folder or files named in Chinese or Japanese characters) from one directory to another. I tried using dircopy from "File::Copy::Recursive" but the copied directory have the mangled names like:

Orig. Name => Copied Dir name

テーブル => A95B~1

Can somebody please help me to get out of this problem? I am using the very simple code-line like:

my $num_of_files_and_dirs = dircopy($source_dir,$target_dir) or die "C
+opying Server failed: $!";
[download]