##

use XML::DOM;
my $file = @ARGV[0];

my $parser = new XML::DOM::Parser();

my $doc;
eval {
        $doc = $parser->parsefile( $file );
};
if ($@) {
        die "parsefile() failed: $@\n";
}
$doc->printToFile($file."_out");
exit;

##

##



        


##

##

parsefile() failed:
not well-formed (invalid token) at line 3, column 17, byte 54 at /usr/lib/perl5/XML/Parser.pm line 187