#!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 );

##</code><code>##

C:\test>test.pl C:\test\test.xml
Content-type: text/html

<H1>Software error:</H1>
<PRE>
not well-formed at line 46, column 20, byte 1554 at E:/Perl/site/lib/XML/Parser.pm line 168
</PRE>
<P>
For help, please send mail to this site's webmaster, giving this error message and the time and date of the error.
[Tue Jun 18 15:01:24 2002] C:\test\test.pl:
[Tue Jun 18 15:01:24 2002] C:\test\test.pl: not well-formed at line 46, column 20, byte 1554 at E:/Perl/site/lib/XML/Parser.pm line 168
C:\test>