$url = "http://biz.yahoo.com/rf/archive.html"; 
  
  $ua = new LWP::UserAgent;
  # Set up a callback that collect links
  my @links = ();
sub callback {
              my($tag, %attr) = @_;
              return if $tag ne 'a';  #  only look closer at written d
+ocuments, not images
              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])});
                                          

 #Expand all URLs to absolute ones
 my $base = $res->base;
 @links = map { $_ = url($_, $base)->abs; } @links;


print "Links: <P>@links<p>";

exit;
[download]