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