Perl - HTML::TagParser

use HTML::TagParser;
use LWP;

#my $doc = HTML::TagParser->new( "http://localhost/" ); # URI::Fetchがあれば "use LWP" なしでも URL が取得できる

my $doc = HTML::TagParser->new(
    LWP::UserAgent->new->request(
        HTTP::Request->new( GET => "http://localhost/" )
      )->content
  );

my @a = $doc->getElementsByTagName("a");

print join("\n", map {
    $_->getAttribute("href") . " : ". $_->innerText;
  }(@a) );