perl Base64 邮件解码 乱码 问题

http://maclife.net/tools/base64/
是一个在线解码网址
其中有设置字符集 Charse
后面发现自己的MIME::Base64解码后总显示乱码的问题原因是

use Encode;
use utf8;
use MIME::Base64;

charset=GB2312的
需要$dec = decode("GBK",$dec);

charset=big5
需要$dec = decode("big5",$dec);

charset=utf8
需要$dec = decode("utf8",$dec);


还有charset=ISO-8859-1
需要$dec = encode("utf8",decode("ISO-8859-1",$dec);
$dec = decode("utf8",$dec);