https://www.cnblogs.com/yeungchie/
use utf8;
binmode STDOUT,‘:encoding(gbk)‘;
binmode STDIN,‘:encoding(gbk)‘;
binmode STDERR,‘:encoding(gbk)‘;
use open ‘:encoding(gbk)‘,‘:std‘;
[ Perl ] 设置中文显示
原文：https://www.cnblogs.com/yeungchie/p/14726573.html
