start_h => [\&a_start_handler, "self,tagname,attr"], 

my($self, $tag, $attr) = @_;

    print "A $attr->{href}\n";