i actually created directory with chinese characters , i tried to read that chinese directory. and also i tried the above solution it is just printing "???" for that chinese directory . how to read that chinese directory.
~/536198> ls
536198.pl 中文
~/536198> cat 536198.pl
#!/usr/bin/perl
use strict;
use diagnostics;
opendir my $dirhandle, "." or die "could not opendir current dir: $!";
print join "\n", readdir $dirhandle;
closedir $dirhandle;
~/536198> perl 536198.pl
.
..
中文
536198.pl