perl 中文处理 乱码

今天在处理数据时，发现perl的中文输出总是乱码，后来用

use Encoding;
encode("gbk", decode("utf-8", $str));

这样的语句转一下就好了，decode的应该是$str原来的编码方式，转为后面的编码方式就可以了。