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