my $content = get($url);
my $ref = \$content;
my $p = HTML::TokeParser->new($ref);
my $token;
while ($token = $p->get_tag("a")) {
	my $href = $token->[1]{href};
	my $text = $p->get_trimmed_text("/a");
	print "$href => $text";
}
## Should work...