Select Code to Download

sub change_pass {
$pass = crypt($q->param('old'), r);
...
print "Your password has been chaged";
}
}

elsif($pass ne $user{'pass'}) {
print "$pass<br>$user{'pass'}";
inerror("Your old passwords don't match current password");
}

 
print "$pass<br>$user{'pass'}";