#! /usr/local/bin/perl
&ReadParse(*input);
$vCod=$input{"cod"};
$vNome=$input{"nome"};
$vPreco=$input{"preco"};
$vQtd=$input{"qtd"};
$vPreco=~s/,/./;
push (@areg,$vCod);
push (@areg,$vNome);
push (@areg,$vPreco);
push (@areg,$vQtd);
$reg=join(":",@areg);
open(fha3,">>../public/arq3.txt"); 
print fha3 "$reg\n";
close(fha3);
print &PrintHeader;
print &HtmlTop("Gravando");
print qq(Registro gravado com sucesso!);
print &HtmlBot;
#Colocar o MAGIC.TXT a partir daqui
 