#!/usr/bin/perl
#
# $Id$

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

print Dumper(XMLin(shift @ARGV));