Select Code to Download

sub verify_admin {

...
        &dienice("Your username/password combination is incorrect. Ple
+ase press your browsers back button and try again.");
         }
}

if ($FORM{'password'} eq "$FORM{'verifypassword'}"){
    my $cpasswd = crypt("$FORM{'password'}","v6");
...
}
exit;
}