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');
}