#!/usr/bin/perl -w
use strict;
use XML::Parser::Lite;

my $p1 = new XML::Parser::Lite;

$p1->setHandlers(
    Start => sub { shift; print "start: @_\n" },
    Char => sub { shift; print "char: @_\n" },
    End => sub { shift; print "end: @_\n" },
  );

$p1->parse('<foo id="me">Hello World!</foo>');
__END__