#!/usr/bin/perl -w
use strict;
use XML::Parser;
use XML::Checker::Parser;

my $xml = qq(<?xml version='1.0' encoding='iso-8859-1' ?>
<!DOCTYPE DISS_order SYSTEM 'umi_orders.dtd'>
<DISS_order>
</DISS_order>
);

my ($p1, $result);
$p1 = new XML::Checker::Parser();
eval {
    $p1->parse($xml);
};
if ($@) {
    print "Error\n";
}
[download]