use strict;
use warnings;
 
use XML::Parser::Lite;
 
my $doc = "<foo/>\n";
print "'$doc'\n";
 
my $parser = XML::Parser::Lite->new(
   Handlers => {
      Start => sub {
         shift;
print "Start: @_\n";
      },
      Char => sub {
         shift;
print "Char:  @_\n";
      },
      End => sub {
         shift;
print "End:   @_\n";
      },
   },
);
 
$parser->parse($doc);
print "Finally done\n";

--------

'<foo/>
'
Start: foo
End:   foo
Finally done