#!/usr/bin/perl -w

use strict;

use HTML::TokeParser;

-e $ARGV[0] or die "File does not exist: $ARGV[0]\n";

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

while ( my $token = $p->get_tag("a")) {
    my $url = $token->[1]{href} || "-";
    my $text = $p->get_trimmed_text("/a");
    print "$url\n";
}