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";