#! perl -sw
use strict;
use XML::Simple;
use Data::Dumper;

my @handlers = qw[
    Init Start Char Proc Comment 
    CdataStart CdataEnd End Final
];

for my $handler ( @handlers ) {
	eval "sub $handler\t{ print qq[\$handler: \@_[1 .. \$#_]\\n]; goto \&XML::Parser::Tree::$handler; }";
}
my %handlers = map{ $_ => eval "\\&$_" } @handlers;

my $xml = XML::Simple->new();
my $config = $xml->XMLin( \*DATA, 
    parseropts => [ Handlers => \%handlers, ] 
);

#print Dumper $config;

__DATA__
<config logdir="/var/log/foo/" debugfile="/tmp/foo.debug">
	<server name="sahara" osname="solaris" osversion="2.6">
		<address>10.0.0.101</address>
		<address>10.0.1.101</address>
	</server>
	<server name="gobi" osname="irix" osversion="6.5">
		<address>10.0.0.102</address>
	</server>
	<server name="kalahari" osname="linux" osversion="2.0.34">
		<address>10.0.0.103</address>
		<address>10.0.1.103</address>
	</server>
</config>