or download this
my @fields = (qw(url html_extr_text concord_file sys_time));
my $fieldlist = join ", ", @fields;
my $field_placeholders = join ", ", map {'?'} @fields;
...
die "Error inserting records, only [$field_placeholders] g
+ot inserted: " . $sth->insert->errstr;
}
}