[Perl] password cgi

[Luis Medrano Zaldivar]

----=_vm_0011_W2326116202_19728_1050423590
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Estoy usando este cgi para determimar si el password es el correcto...y j=
ala de pelos la unica cosa que no me gusta es que se queda en memoria del=
 browser lo que tecleas en el campo del password. Anexo mi codigo para qu=
e chequen y me digan que es lo que puedo modificar para que esto ya no pa=
se.=0D
=0D
Saludos,=0D
Luis=0D


___________________________________________________
Todito Card, internet f=E1cil y sin compromisos.
Todito Ilimitado, internet r=E1pido, seguro y econ=F3mico.



----=_vm_0011_W2326116202_19728_1050423590
Content-Type: application/octet-stream;
        name="guesspassword.cgi"
Content-Disposition: attachment;
        filename="guesspassword.cgi"
Content-Transfer-Encoding: 7bit

#!/usr/bin/perl

use strict;
use CGI;
use CGI::Carp 'fatalsToBrowser';
use Digest::MD5 qw(md5_hex);


my $query = CGI->new();
my $guesspassword = $query->param ("guess password");
my $password = $query->param("asdasdsad");

my $website="http:\/\/apple.com";
my $encrypted_password = "abddc35c32216ab9341d4b5a19e33738";
#$password = $query->param('password');
#if (md5_hex($password) eq $encrypted_password) {
	#print "Location: $website\n\n";
#}
#if (md5_hex($password) ne $encrypted_password){
#print "please try againg \n";
#}


print $query->header; # print the HTTP header
# print the HTML header
print $query->start_html(-bgcolor => "white");
print $query->p();
$password = $query->param('password');
print "$password\n";
print $query->start_form();
print "Password:";
print $query->password_field(-name => 'password');

print $query->submit(-value => "Summit");

print $query->end_form();


print $query->p();
print $query->end_html;
my $space="";


#my $encrypted_password = "abddc35c32216ab9341d4b5a19e33738";
#$password = $query->param('password');
#if (md5_hex($password) eq $encrypted_password) {
#print "you are in \n";
   
#print redirect (-URL => $website);
#exit;
#}
#if (md5_hex($password) ne $encrypted_password){
#print "please try againg \n";
#}


----=_vm_0011_W2326116202_19728_1050423590--