用perl处理中文的过程出现乱码的解决办法

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