##################################### @fields = ("first","last","position","email","telephone","presider"); sub add_record { $key = time(); $record=$key; foreach $field (@fields){ ${$field} = $q->param($field); ${$field} = filter(${$field}); $record .= "\::${$field}"; } $record .= "\::${$presider}"; print"were inside of add_record sub\n"; unless (-e $database){ open (DB, ">$database") || die "Error creating database. $!\n"; } else { open (DB, ">>$database") || die "Error opening database. $!\n"; } flock DB, $EXCLUSIVE; seek DB, 0, 2; print DB "$record\n"; flock DB, $UNLOCK; close(DB); } # End of add_record subroutine. ########################################3 sub print_add_screen{ print<Add a Record
Add a Record

Check here only if individual is currently a presider HTML foreach $field (@fields){ print< HTML } # End of foreach. print<
\u$field:

HTML } # End of print_add_screen subroutine.