open DATAFILE ">>$datadir/$sessid";
foreach $thing (keys %formdata) {
     print DATAFILE "$thing: $formdata{$thing}\n";