#!e:/Perl/bin/Perl.exe -w
use strict;
use warnings;
use diagnostics;

use XML::Simple;
use CGI qw(:all *table);
use CGI::Pretty qw( :all );
use Data::Dumper;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use URI::Escape;

my $xml = XMLin( shift );
print Dumper( $xml );