print "Content-Type: text/html\n\n"; $ENV{'REQUEST_METHOD'}; $buffer = $ENV{'QUERY_STRING'}; my($nome, $vuser) = split(/=/, $buffer); open(FILE,"; @areg=split(/:/,$reg); if (@areg[0] eq $vuser) { $nomec=@areg[2]; $usuario=@areg[0]; } } close(FILE); print << "EOF"; Brazuka Shopping Online
Código Produto Preço Quantidade
EOF #INICO ------------------------------------- $compra=1; open(FILE,"; @areg=split(/:/,$reg); if ($compra % 2 == 0) { $cor='antiquewhite'; } else { $cor='antiquewhite'; } if (@areg[1] ne ""){ print << "EOF";
@areg[0] @areg[1]

@areg[2]

EOF } $compra=$compra+1; } close(FILE); print << "EOF";

EOF