# basic skeleton for Perl XML parser; thomas@thurman.org.uk
use strict;
use warnings;
use XML::Parser;

my $capture;

my $p = new XML::Parser(
Handlers => {
Start => sub {
my ($parser, $tag, %attrs) = @_;
},
End => sub {
my ($parser, $tag) = @_;
},
Char => sub {
my ($parser, $text) = @_;

$capture .= $text if defined $capture;
},
});
$p->parsefile('foo.xml');