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;
}