9 my $parser = XML::SAX::ParserFactory->parser(
10 Handler => MySAXHandler->new
12 binmode STDOUT, ':encoding(UTF-8)';
13 print "\x{65}\x{301}\n";
14 $parser->parse_string(encode_utf8("<xml>\x{65}\x{301}</xml>"));
15 $parser->parse_string("<xml>\xEF\xBB\xBF\x{65}\x{301}</xml>");
19 use base qw(XML::SAX::Base);
21 my ($self, $doc) = @_;
22 # process document start event
27 # process element start event