eval {
    local $XML::Checker::FAIL = \&my_fail;

    $parser->parse;
    $parser->parsefile ($ARGV[0]);
};