Perl 在windows下打印中文乱码问题

方法一

use utf8;
binmode(STDOUT, ":encoding(gbk)");
$单价=10;
$数量=100;
$总额=$单价*$数量;
printf "总额%d\n",$总额;
#printf可以输出格式字符串

output:
总额1000

方法二

use Encode;
my $str='你好';
$str = encode("gbk", decode("utf-8", $str));
print $str,"\n";

output:
你好