#!/usr/bin/perl
#use strict;
#use warnings;
use XML::Simple;
use Data::Dupmer;

my $simple = XML::Simple->new(); 
my $struct = $simple->XMLin("./xml/exer1.xml", forcearray => 1, keeproot => 1); 

print Dumper($struct);