1   #!/usr/bin/perl -w
    2   package Example;
    3   use strict;
    4   
    5   require HTML::Parser;
    6   
    7   @Example::ISA = qw(HTML::Parser);
    8   my $parser = Example->new;
    9   $parser->parse_file('index.html');
   10   
   11   print $parser->{TEXT};
   12   
   13   sub text
   14    {
   15      my ($self,$text) = @_;
   16      $self->{TEXT} .= $text;
   17    }