#!/usr/bin/perl -w

use strict;
use CGI;

my $query = new CGI;

#Recibe todos los valores y los pone en el hash %Input
#La llave es el nombre de la variable
#y el valor, pues el valor de la variable
my %Input = $query->Vars;

#Digamos que se mandaron dos variables al CGI
# Nombre y Email

#Imprimimos las variables
print "$Input{'Nombre'}\n";
print "$Input{'Email'}\n";


#Ahora no las necesitamos
delete($Input{'Nombre'});
delete($Input{'Email'});


#Probemos si realmente se eliminaron las variables
print "$Input{'Nombre'}\n"; #-> No imprime nada