#!/usr/bin/env perl -l

use strict;
use warnings;

use Text::CSV;

my $csv = Text::CSV::->new();

my $cols = @{ $csv->getline(\*DATA) };

my $query = 'INSERT INTO table (' . join(',' => map { "col$_" } 1 .. $cols)
            . ') VALUES (' . join(',' => ('?') x $cols) . ')';

print $query;

__DATA__
a,b,c,d

##</code><code>##

INSERT INTO table (col1,col2,col3,col4) VALUES (?,?,?,?)