my @links = ();
sub callback {
              my($tag, %attr) = @_;
              return if $tag ne 'a';  
              push(@links, values %attr);
  																					}

  # Make the parser.  
  $p = HTML::LinkExtor->new(\&callback);

  # Request document and parse it as it arrives

  $res = $ua->request(HTTP::Request->new(GET => $url),
                      sub {$p->parse($_[0])});