#! /usr/local/bin/perl
$temp=$ENV{"QUERY_STRING"};
@pares=split(/&/,$temp); 
for($i=0;$i<=$#pares;$i++){
($chave,$valor)=split(/=/,$pares[$i]); 
$valor=~tr/+/ /; 
$valor=~s/%(..)/pack("c",hex($1))/ge;  
$campos{$chave}=$valor;
}
print "Content-type:text/html\n\n";
print "<html><head><title>PERL"; 
print "</title></head><body>";
print "Nome recebido:  ";
print "$campos{'nome'}";
print "<p>";
print "Endereo recebido:  ";
print "$campos{'end'}";
print "</body></html>";