求救！用 WWW::Mechanize来查找link的问题

use strict;                                                                        
use LWP::UserAgent;                                                               
use HTML::Form;
use WWW::Mechanize;
use Data:umper;   

my $num=1;
my $url = "http://search.cpan.org/";   
my $mech = WWW::Mechanize->new();
$mech->get($url);
my @links=$mech->find_all_links();

foreach my $i (@links){
        print "$num\n";
        print "$i->text()\n";
        print "$i->url()\n";
        $num+=1;
}

我想列出“http://search.cpan.org/”当页的所有链接的text 文本
但是没成功

显示
WWW::Mechanize::Link=ARRAY(0x1178900)->text()
WWW::Mechanize::Link=ARRAY(0x1178900)->url()
2
WWW::Mechanize::Link=ARRAY(0x116af9->text()
WWW::Mechanize::Link=ARRAY(0x116af9->url()
3
WWW::Mechanize::Link=ARRAY(0x11790c->text()
WWW::Mechanize::Link=ARRAY(0x11790c->url()

…………

不知道哪里有问题 可能是我理解有误 希望大家帮帮忙

=====================================
我建了一个perl交流群 5508970  希望大家加入交流 共同进步  (*^__^*) 嘻嘻……

或许会对你有帮助
http://bbs.chinaunix.net/viewthread.php?tid=991049&extra=page%3D1%26amp%3Bfilter%3Ddigest

看到了　
其实是　对$mech->follow_link(text => "Devices"); 　不是很了解　
这里参数　text 是不是　就是连接的名字　我是这样理解的　但是不对　所以
想问问大家