#!/usr/bin/perl -w
######################################################################
# exlinks.pl
######################################################################
# Perl Power! - Michael Schilli 1998
######################################################################

use HTML::TreeBuilder;

$tree = HTML::TreeBuilder->new();           # create TreeBuilder
$tree->parse_file("document.html");         # parse file

for(@{$tree->extract_links()}) {            # extract hyperlinks
   my ($linkname, $reference) = @$_;
   print "$linkname\n";
}

$tree->delete();                            # delete parse tree