@fields = ("first","last","position","email","telephone","presider");
$database = "data/pastoral_members.txt";


sub add_record {
  $key   = time();
  $record=$key;
  foreach $field (@fields){
       ${$field}  = $q->param($field);
       ${$field}  = filter(${$field});
       $record   .= "\::${$field}";

                      }
  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.