Select Code to Download

use XML::Parser;
$p1 = new XML::Parser(Style=> 'Tree');
my $xml = $p1->parsefile('foo.xml');

use Data::Dumper;
print Dumper($xml);