perl 在win下输出中文乱码问题

use utf8;
my $name = '你好';
binmode(STDOUT, ":encoding(gbk)");
print $name,"
";

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