perl脚本在Windows运行乱码的问题

use utf8;
binmode(STDOUT, ":encoding(gbk)");

第二种

use Encode;