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

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

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