#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

use HTML::TreeBuilder;

$tree = HTML::TreeBuilder->new();      # TreeBuilder erzeugen
$tree->parse_file("document.html");    # Datei parsen

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

$tree->delete();                       # Parse-Baum löschen