#!/usr/bin/perl -w
use strict;
use HTML::TokeParser;

my $p = new HTML::TokeParser($ARGV[0]) or die;

while(my $t = $p->get_token()) {
    if($$t[0] eq 'S' and $$t[1] eq 'a') {
       print $$t[2]->{href}, "\n",
             $p->get_trimmed_text('/a'), "\n\n";
    }
}
undef $p;