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