print MAIL "To: $input_data{'To'} \n";
print MAIL "From: $input_data{'From'} \n";
print MAIL "Subject: Contacto desde el formulario web \n";
print MAIL "Mensaje enviado desde el Formulario web \n\n\n";
print MAIL "Nombre: $input_data{'Nombre'} \n\n";
print MAIL "Teléfono: $input_data{'Telefono'} \n\n";
print MAIL "E-Mail: $input_data{'eMail'} \n\n";
print MAIL "Mensaje: $input_data{'Mensaje'} \n\n";
print MAIL "Host: $ENV{'REMOTE_HOST'} \n";
print MAIL "ADDR: $ENV{'REMOTE_ADDR'} \n";
print MAIL "Fin del formulario";
