1use utf8;2my$name = ‘你好‘;3#binmode(STDOUT, ":encoding(gbk)"); 4print$name,"\n";5 6# #或7# use Encode;8# my $str=‘你好‘;9# $str = encode("gbk", decode("utf-8", $str)); 10# print $str,"\n"; 原文:http://www.cnblogs.com/perl6/p/6417790.html