请教关于邮件解码的问题！！！谢谢大家

请教关于邮件解码的问题！！！谢谢大家
小弟刚刚学perl，最近想用perl写个收取pop3上邮件的小程序
不过在邮件的解码上遇到了问题，不知改如何解码：
贴一小段：
my $msgnums = $conn->list();
my $msg = $conn->top(1,20);
print @$msg;
这样打出来的都是乱码 改怎么解码啊
在此谢谢各位了

   

万能的版主和兄弟姐妹们
帮帮忙吧