perl 中文处理 乱码

今天在处理数据时，发现perl的中文输出不是乱码，但调用webservice接口，传入后Java获取乱码

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

encode("utf8", decode("gbk", $str));

都试一下就OK了