##


#!/usr/bin/perl

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

my $xs = XML::Simple->new();

my $xml = $xs->XMLin('/root/Desktop/914477.xml',
           ForceArray => 1,
           KeyAttr => 1);
binmode STDOUT, ':encoding(utf8)';            
print Dumper($xml);