Select Code to Download

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