$url = "http://this.url.may.redirect.to.url.with.content";

$ua = new LWP::UserAgent;
  
# Set up a callback that collects links

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])});
                      
#Expand all URLs to absolute ones
my $base = $res->base;
@links = map { $_ = url($_, $base)->abs; } @links;

print "<b>Original Links:</b> <p>@links<p>";