use HTML::TokeParser::Simple;
use strict;
use vars qw( $parser $attributes );

$parser = HTML::TokeParser::Simple->new($ARGV[0]);

while ( my $token = $parser->get_token ) {
  next unless ($token->is_start_tag('a'));
  $attributes $token->return_attr;
  if(exists $attributes->{href}) {
    print $attributes->{href}, "\n";
  }
}