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

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

?上面一段程序，保存为a.pl，文件编码为unicode或是utf-8，运行后，则创建一个目录，该目录为乱码, 打印出来为乱码。解决办法：? ? ? ?将文件编码设置为ANSI即可。注：不同的编辑器，默认编码是不同的，写代码时这点需注意