Select Code to Download

#!/usr/bin/env perl
use warnings;
...

use XML::Simple qw/:strict XMLin/;
my $xmldata = XMLin 'FILENAME.xml', ForceArray=>[], KeyAttr=>{};

use Data::Dumper;
print Dumper($xmldata);