You are not checking the token type. You only want to check the starting 'a' tag.

#! c:\perl\bin -w

use strict;

use HTML::TokeParser;
my $p = HTML::TokeParser->new(shift||die);

while (my $token = $p->get_token) {
  print $token->[2]{'href'}, "\n" if ($token->[0] eq 'S' && $token->[1
+] eq 'a');
} 
[download]

Thanks. That did it.

You can make this problem easier to solve by switching to HTML::TokeParser::Simple. (Disclaimer: I wrote it)

use strict;

use HTML::TokeParser::Simple;
my $p = HTML::TokeParser::Simple->new(shift||die);

while (my $token = $p->get_token) {
    print $token->return_attr('href'), "\n"
        if $token->is_start_tag('a');
}
[download]

Note that the module is a drop-in replacement for HTML::TokeParser. If you switch to it, your code will function exactly the same and you can simply rewrite the messy bits.