use XML::Simple;
my $xml = XMLin("foo.xml");

use Data::Dumper;
print Dumper $xml;