use XML::Parser;

my $parser = new XML::Parser(Style => 'Debug');
$parser->parsefile('test.xml'); # aus datei
$parser->parse($xml); # direkt aus variable