コマンドラインで日本語のファイル名のリストを出力する方法

perl -MFile::Find -e ‘find(sub {print “$File::Find::name \n” if $_ =~ /[\x8E\xA1-\xFE]/;}, “.”);’