Select Code to Download

 #!/usr/bin/perl -w

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

sub start_handler
  {
...
  $p->handler( start => \&start_handler, "tagname,self");
  $p->parse_file(shift || die) || die $!;
  print "\n";