local $/ = undef;
  open my $fh, "<", $file || die "cannot open $file - $!\n";
  my $str = <$fh>;
  close $fh;
  
  my $dtd = XML::LibXML::Dtd->parse_string( $str );