##
use strict;
use XML::Twig;
my $file = 'uncle.xml';
my $twig = new XML::Twig( TwigHandlers => {
'log/msg/error' => \&print_error,
'log/msg/request' => \&print_request,
});
$twig->parsefile($file) or die "can't parse $!\n";
sub print_error {
my ($t, $elt) = @_;
print "ERROR = " . $elt->att('name') . "\n";
}
sub print_request {
my ($t, $elt) = @_;
print "REQUEST = " . $elt->att('name') . "\n";
}