use XML::Simple;
my %xhash=();
my $file= $ARGV[0];
my $simple = XML::Simple->new();
my $xhash   = $simple->XMLin($file);
print Dumper($xhash);