##


  

  
  


##

##

#!/usr/bin/perl
use strict;
use XML::LibXML;
my $parser = XML::LibXML->new();
$parser->validation(1);
eval {print "xml is valid=".$parser->parse_file('xml.xml')->is_valid  ."\n"; };

if ($@) {    print "dtd not valid: $@\n";}
else {    print "dtd valid\n";}