#!/usr/local/bin/perl -w

use strict;
use warnings;

use Data::Dumper;
use XML::Simple;

my $file = shift;

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

my $ref = $xs->XMLin( $file );

print Dumper ($ref);

1;