$p = HTML::Parser->new(api_version => 3, start_h => [sub { ... }, "self,tagname,attr,text"], );