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;