#!/usr/bin/perl -w

use strict;
package Example;
require HTML::Parser;

@Example::ISA = qw(HTML::Parser);

my $parser = Example->new;
$parser->parse_file('index2.html');
print $parser->{TEXT};

sub text
{
  my ($self,$text) = @_;
  $self->{TEXT} .= $text;
}

##</code><code>##

sub start_handler
  {
    return if shift ne "title";
    my $self = shift;
    $self->handler(text => sub { print shift }, "dtext");
    $self->handler(end  => sub { shift->eof if shift eq "title"; },
                           "tagname,self");
  }

  my $p = HTML::Parser->new(api_version => 3);
  $p->handler( start => \&start_handler, "tagname,self");
  $p->parse_file(shift || die) || die $!;
  print "\n";