sub change_pass {
$pass = crypt($q->param('old'), r);
if($q->param('old') ne $q->param('reold')) {
inerror("Your old passwords don't match");
}
elsif($pass ne $user{'pass'}) {
print "$pass<br>$user{'pass'}";
inerror("Your old passwords don't match current password");
}
else {
$newpass = crypt($q->param('new'), r);
print "Your password has been chaged";
}
}