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

use HTML::TreeBuilder;

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

$tree->traverse(\&callback);                # traverse parse tree

$tree->delete();                            # release memory

######################################################################
sub callback { 
######################################################################
    my($node, $start, $depth) = @_;

        # if $node is no HTML::element object, it is a piece of text
        # - but we are only interested in HTML::element objects
    return 1 unless ref($node);

        # no interest for closing tags
    return 1 unless $start;

    if($node->tag eq "title") {       # Aha! An opening TITLE tag!
        print "Title: @{$node->content()}", "\n";
        return 0;                     # terminate parsing process
    }

    1;                                # continue
}