#!/usr/bin/perl

use XML::Parser;
use Data::Dumper;
use strict;
use warnings;

$parser = new XML::Parser( Style => 'Tree' );
my $tree = $parser->parsefile( 'testxml.xml' );

print Dumper( $tree );