sub makelog {
        open (LOGFILE, ">>$logfile") or die("Can't Open Log File at $logfile");
        @FieldNames = sort (keys %FORM);
        foreach $key (@FieldNames) {
                print LOGFILE ("\t"."$FORM{$key}");
        }
        print LOGFILE ("\n");
        close (LOGFILE);
}