sub sqinsert ()  {
        my $table = "blah";
        my ($fields, $formdata) = @_;
        my $fields = join(', ', @$fields);
        my $places = join(', ', ('?') x @$fields);
        $sql = "INSERT into $table ($fields) values ($places)";
        print "$sql\n";
        #$sth = $dbh->prepare($sql);
        #$sth->execute(@formdata{@fields});
        #$sth->finish();
        }