https://www.cnblogs.com/yeungchie/
use utf8;
binmode STDOUT,':encoding(gbk)';
binmode STDIN,':encoding(gbk)';
binmode STDERR,':encoding(gbk)';
use open ':encoding(gbk)',':std';