use CGI qw(:standard);
use strict;
use warnings;


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

do{
    $array[$i],

    $i=$i+1;
}while($i<30);
print end_html;

##</code><code>##

1 2 3 id CDATA #REQUIRED 5 Name CDATA #REQUIRED 6 > 7 8 9 10 id CDATA #REQUIRED 12 Name CDATA #REQUIRED 13 > 14 15 16 id CDATA #REQUIRED 18 Name CDATA #REQUIRED 19 > 20 21 22 23 id CDATA #REQUIRED 25 Name CDATA #REQUIRED 26 > 27 28 29 30