print XML::LibXML->get_last_error;

##</code><code>##

eval {
    $doc->validate;
};
if ($@) {
    print "Doc not valid: $@\n";
}
else {
    print "Doc valid\n";
}