perl源文件编码类型导致乱码问题

$str = '中国';
chdir 'E:\job';
mkdir $str;
print  $str;

 

上面一段程序，保存为a.pl，文件编码为unicode或是utf-8，运行后，则创建

一个目录，该目录为乱码, 打印出来为乱码。

解决办法：

       将文件编码设置为ANSI即可。

注：不同的编辑器，默认编码是不同的，写代码时这点需注意