my $p = new XML::Parser (Handlers => {Start => sub{hdl_start($tag, $name, @_)},
...