my $tabla = param("tabla");

if ($tabla eq "Miembros")
{
   my $llave = MensajeMiembros();
}

sub MensajeMiembros
{
my $email = param("email");
my $mensaje = "Blah Blah";

return ($email);