sub EditRegistration { # requires user, password, and database to begin, # and all registration fields to actually edit. # figure out the user login and passwd # display current registration info # if this is the registration form calling # add new data to database # temporary setup $regisstring = "keny:admin:keny\@graphicage.com:301-208-6757:address"; tie %hash, DB_File, $dbmfile # open database, to be accessed or die "Can't open FILENAME: $!\n"; # through %HASH $hash{'1'} = $regisstring; # put string in database untie %hash; # close the database } 1;