my ($hp) = new HTML::Parser (
                            api_version => 3,
                            start_h     => [ $Tag,  'tagname,attr,offset,length' ],
                            end_h       => [ $Tag,  'tagname,attr,offset,length' ],
                            text_h      => [ $Text, 'text' ],
                        );