#!/usr/bin/perl -w
use strict;
use XML::Simple;
use Data::Dumper;

my $file= shift @ARGV;
my $xml= XMLin( $file);
print Dumper( $xml);