Hi monks!

I know how to validate XML, but still error massages appears on STDOUT, anyone knows how to avoid them ? my code looks:

use strict;
use XML::Checker::Parser;

my $xml_file = 'data.xml';
my $xp = new XML::Checker::Parser ( Handlers => { } );

eval {
  $xp->parsefile($xml_file);
  local $XML::Checker::FAIL = \&my_fail;
};

if ($@) {
  print "$xml_file failed validation!\n";
} else {
  print "$xml_file passed validation\n";
}

sub my_fail {
  my $code = shift;
  die XML::Checker::error_message ($code, @_) if $code < 300;
}
[download]

data.xml is:

<?xml version="1.0" encoding="utf-8"?>
<series>
<article>
<url>http://builder.com.com/article.jhtml?id=..htm</url>
<title>Remedial XML for programmers: Basic syntax</title>
<summary>In this first installment in...</summary>
</article>
</series>
[download]

OUTPUT is:

XML::Checker ERROR-101: undefined ELEMENT [series]
        Context: line 2, column 0, byte 40
XML::Checker ERROR-101: undefined ELEMENT [article]
        Context: line 3, column 6, byte 56
XML::Checker ERROR-101: undefined ELEMENT [url]
        Context: line 4, column 13, byte 80
XML::Checker ERROR-101: undefined ELEMENT [title]
        Context: line 5, column 13, byte 167
XML::Checker ERROR-101: undefined ELEMENT [summary]
        Context: line 6, column 13, byte 239
data.xml passed validation
[download]

I dont't want to see error messages.
thanks a lot!