#!/usr/bin/perl

use HTML::TokeParser::Simple;
my $p = HTML::TokeParser::Simple->new( $ARGV[0]);

#----------------------------------------
# get TITLE tag and value
if ($p->get_tag("title")) {
    my $title = $p->get_trimmed_text;
    print "Title: $title\n";
}

#----------------------------------------
# Now, from same file, get <H>eaders
my $p = HTML::TokeParser::Simple->new( $ARGV[0]);
while (my $token = $p->get_tag('h1'))
{
    my $text = $p->get_trimmed_text("/h1");
    print "H1: $text\n";
}