#! /usr/local/bin/perl
&ReadParse(*input);
$vNome=$input{"nome"};
open(fha2,">>../public/arq2.txt"); 
print fha2 "$vNome\n";
close(fha2);
print &PrintHeader;
print &HtmlTop("Gravando");
print qq(Registro gravado);
print &HtmlBot;
#Colocar o MAGIC.TXT a partir daqui
 