#!/usr/bin/perl
# dumpxml: Simply dumps an XML as a Perl structure
use strict;
use warnings;
use XML::Simple;
use Data::Dumper;

if (!@ARGV or grep /^-h$/, @ARGV ) {
    print STDERR "Usage: dumpxml <XML FILE> [ '<XML::Simple options>' ]\n";
    print STDERR "Example: dumpxml file.xml 'ForceArray => 1, KeyAttr => \"name\"'\n";
    exit 0;
}

my $file    = shift or die;
my @options = eval "@ARGV";
my $xml     = XMLin( $file, @options );

print Data::Dumper->Dump( [$xml], ["FILE{'$file'}"] );