"; if ($in{"house"}&&$in{"name"}&&$in{"email"}) { open (OUT, ">>profiles.txt"); print OUT $in{"name"},",",$in{"email"},",",$in{"bday"},",",$in{"house"},"\n"; close OUT; print "Database Update Successful

#!/usr/local/bin/perl require "cgi-lib.pl"; &ReadParse; print "Content-type: text/html\n\n"; print ""; if ($in{"house"}&&$in{"name"}&&$in{"email"}) { open (OUT, ">>profiles.txt"); print OUT $in{"name"},",",$in{"email"},",",$in{"bday"},",",$in{"house"},"\n"; close OUT; print "Database Update Successful\n

Your profile update form has been entered into the database."; print "

Please allow 3-4 days for the changes to be implemented.
"; print ""; } else { print "Database Update Unsuccessful\nThere was an error in your profile update form."; print "

You didn't specify your name, e-mail address and/or your house. Try again.
"; print ""; }