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

    open(ADMINPASS, ">$adminpasswddir/adminpasswd.db") || &dienice("Can't open the file adminpasswd.db $!");
    print ADMINPASS "$FORM{'username'}\|$cpasswd";
    close(ADMINPASS);

    open(USERS, "<$passwddir/users.db") || &dienice("Can't create the file users.db $!");
    close(USERS);

print "Content-type: text/html\n\n";

#SUCCESS HTML

}
else {
    &dienice("Your passwords do not match. Please press your browsers back button to fix the problem.");
}
exit;
}