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])});


##</code><code>##

$ua = LWP::UserAgent->new;
$req = HTTP::Request->new(GET => $url);
$req->authorization_basic('user', 'pass');
$res = $ua->request($req)->as_string,

##</code><code>##

$ua = LWP::UserAgent->new;
$req = HTTP::Request->new(GET => $url);
$req->authorization_basic('user', 'pass');
 $res = $ua->request($req)->as_string,
  	      sub {$p->parse($_[0])};