HTML::LinkExtor怎么抓去link

9命怪猫

perldoc HTML::LinkExtor 参考了帮助文件，把里面的例子直接使用过来。

#!/usr/bin/perl
require HTML::LinkExtor;
$p = HTML::LinkExtor->new(\&cb, "http://www.perl.org/");
sub cb {
    my($tag, %links) = @_;
    print "$tag @{[%links]}\n";
}
$p->parse_file("index.html");

但是，什么东西都没有print出来，不明白这个包怎么用的...恳请大侠指点一二。