#! /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 "LISTA DE MATRICULA<P>";
$reg=" ";
while($reg)
{
$reg=<fh2>;
print $reg;
print "<P>";
}
close(fh2);
print "<BR>FIM DO ARQUIVO";
print "</body></html>";
#NO precisa acrescentar o arquivo MAGIC.TXT