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

##</code><code>##

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