$p->parser(HTML::Parser->new("api_version" => 3,
      start_h   => [ mayka($p,6,start_h   => \&_start), 
                      "tag,skipped_text,attr,attrseq,line,text"],
      end_h     => [ mayka($p,4,end_h     => \&_end),  
                      "tagname,skipped_text,line,offset_end"],
      text_h    => [ mayka($p,3, text_h   => \&_text), 
                      "tag,skipped_text,text"], 
      default_h => [ mayka($p,3,default_h => \&_dflt), 
                      "event, skipped_text, text"],
      marked_sections => 1,));