#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use XML::Simple qw(:strict);

my $xml = XMLin($ARGV[0], ForceArray => [], KeyAttr => []);

warn Dumper($xml);