#!/usr/bin/perl

use strict;
use warnings;

use XML::Parser;
use Data::Dumper;

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

print $tree->[1]->[4]->[4]->[2], "\n";