Prueba de Formulario.

print <<"header";

 

Los
datos han sido enviados correctamente, (espero).

Gracias
por tu colaboración.

Recibe
un saludo y sigue visitando estas páginas.

---

Para volver a la página principal pulsa en el icono.

---

Si encuentras algún problema, contacta por
correo en: guiller@wcostasol.es

header

print "\n";

## the following will print variables to a log file.

# open a logfile for appending, will stick stuff on the end.
open (LOGFILE, ">>/web/usuarios/guiller/form/prueba_formulario.txt");

# loop through the list of key/value pairs
foreach $key (sort keys %in)

# and write each pair to the logfile. will break on multiple values.

{ print LOGFILE "$key = $in{$key}\n"; }

# and close the logfile.
print LOGFILE "============================================================\n";
close LOGFILE