MIME邮件Entity问题请教，关于邮件转发

小弟现在我有一个需求
用一个程序去访问一个邮箱，将其中的邮件平均转发给几个人的邮箱

我现在看到的有关的模块主要包括
Net::POP3
Net::SMTP
MIME::Entity
我主要参考的书是perl网络编程
我发现MIME的Entity是收发邮件的模块都用到的。所以想通过处理它实现转发邮件
但现在遇到一个问题

代码如下：

#!/usr/bin/perl -w use strict; use Net::POP3; use MIME::Entity; print "now testing ... \n"; my $entity;    # MIME 邮件实体 my $host = 'pop.***.com'; my $usr = 'abc'; my $passwd = '12344'; my $pop = Net::POP3->new($host,Timeout=>30) or die "cant connect $! \n"; my $message_count = $pop->login($usr=>$passwd) or die "cant lonin $! \n"; print "now have $message_count messages in mailbox\n" ; # 取得最后一封邮件实体 16 my $msgNum = 16; print "get the last mail ! \n"; $entity = $pop->get($msgNum); # 修改要转发的邮件头！ # 查询原来的邮件标题 my $title = $entity->head->get('Subject');    # 这一行程序报错 程序运行打印的信息为： [king@localhost workspace]$ ./mailTest.pl now testing ... now have 16 messages in mailbox get the last mail ! Can't call method "head" on unblessed reference at ./mailTest.pl line 26. 难道说是没有取到邮件？ 请问报错的原因是什么呢，我怎么才能查出来呢。谢谢各位指教 print "$title\n";

小盆友，用 fetchmail 吧。
我站内短信回复过你的。

呵呵，这条路真的走不通吗
其实这两条路，一个用perl做，一个是安装邮件服务器或者工具
对我来时一个是爬雪山，一个是过草地啊。。。。都那么难。。。

请教flw ，那个fetch我到网站上看了，下载的那个tar包之后我不知道怎么安装啊。。。
呵呵，没想到你也睡得那么晚。。。。