~/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