$_checker->Start ($tag);

##</code><code>##

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

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

##</code><code>##

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

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