Thanks for your suggestion.
Do you know why I run this script:

#!C:/server/Perl/bin/perl.exe

use CGI qw(:standard);
use XML::Checker;
use XML::Checker::Parser;
use strict;
use warnings;

my %expat_options = (KeepCDATA => 1,
                      Handlers => [ Unparsed => \&my_Unparsed_handler 
+]);

my $parser = new XML::Checker::Parser (%expat_options);


eval {  local $XML::Checker::FAIL = \&my_fail;
        $parser->parsefile ("xml_teste1.xml") };

if($@){
  print "failed validation!\n";
  die "$@";
}
print "passed validation\n";
[download]

give me an error like this:
Can't coerce array into hash at C:/server/Perl/site/lib/XML/Parser.pm line 87.
How can i resolve this error?