#! /usr/local/bin/perl
open(fh2,"<../public/arq2.txt");
print "Content-type:text/html\n\n";
print "<html><head><title>Lendo"; 
print "</title></head><body>";
print "<TABLE BORDER>";
print "<CAPTION>LISTA DE MATRICULA</CAPTION>";
print "<TR><TH>Nomes dos alunos";
$reg=" ";
while($reg)
{
$reg=<fh2>;
print "<TR><TD>$reg";
}
close(fh2);
print "</TABLE>";
print "</body></html>";
#NO precisa acrescentar o arquivo MAGIC.TXT