#!C:/server/Perl/bin/perl.exe

use CGI qw(:standard);
use XML::Checker::Parser;
use strict;
use warnings;

my $checker = new XML::Checker;

open(INPUT, "dtdversao3.dtd") or die "$!";
my @array=<INPUT>;
close(INPUT);
my $i=0;
     print header;
     print start_html('A Simple Example');


     print for @array;


print end_html;