my $p = HTML::LinkExtor->new(\&callback);