use utf8; binmode(STDIN, ":encoding(gbk)"); binmode(STDOUT, ":encoding(gbk)"); binmode(STDERR, ":encoding(gbk)");