$ xmllint --noout --valid foo.xml

##</code><code>##

my $parser = XML::LibXML->new;
$parser->validation(1);
eval {
  $parser->parse_file('foo.xml');
};
print $@ if $@;