sub insertsql {
    my ($dbh,$table,$data) = @_;
    my @qm;
    my @keys;
    my @values;
    my $i = -1;
    foreach my $k (keys %$data) {
        if (defined($data->{$k})) {
            $i++;
            $keys[$i] = $k;
            $values[$i] = $data->{$k};
            $qm[$i] = '?';
        }
    }
    my $keylist = join(",",@keys);
    my $qlist = join(",",@qm);
    my $sqlstatement = "insert into $table ($keylist) values ($qlist) returning id";    
    my $sth = $dbh->prepare($sqlstatement);
    $sth->execute(@values) || die $sth->errstr;
    $sth->finish();
    return;
}

##</code><code>##

insert into crowdtangle (postUrl,crowdtangle_id,statistics,account,dewindowfy_content,expandedLinks,score,description,message,posted,media,subscriberCount,updated,platform,type) values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) returning id

##</code><code>##

DBD::Pg::st execute failed: ERROR:  column "posturl" of relation "crowdtangle" does not exist
LINE 1: insert into crowdtangle (postUrl,crowdtangle_id,statistics,a...
                                 ^ at c:/perlmodules/SqlSupport.pm line 70.