Select Code to Download

$p->links 
Returns a list of all links found in the document. The
returned values will be anonymous arrays with the 
follwing [sic] elements: 
  [$tag, $attr => $url1, $attr2 => $url2,...]

[$tag, {$attr => $url1, $attr2 => $url2,...}]

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

@{[%links]}

($_='jjjuuusssttt annootthheer
     pppeeerrrlll haaaccckkeer')=~y/a-z//s;print;