use XML::LibXML::SAX;

my $XMLParser = XML::LibXML::SAX -> new(Handler => MyHandler);
$XMLParser -> parse_string( "<a>bla</a>" );
    
exit(0);

package MyHandler;

#use base qw(XML::SAX::Base);

sub start_document
{
  my ($This, $Data) = @_;

  print "Caught document start\n";
#  $This -> SUPER::characters($Data);
}

1;