1 #!/usr/bin/perl
      2
      3 use strict;
      4 use warnings;
      5 use Data::Dumper;
      6 use HTML::Parser;
      7
      8 my $p = HTML::Parser->new( api_version => 3, start_h => [\&start, "tagname,self"],);
      9 my @results;
     10
     11 sub start {
     12         my $tagname = shift;
     13         my $self = shift;
     14
     15         $self->handler( text => sub { my $text = shift; print "$text\n"; }, "dtext");
     16 }
     17
     18 $p->report_tags("p");
     19 $p->parse_file("index.html");