#!/usr/bin/perl
use DBI;

$dbh=DBI->connect("DBI:mysql:test","","") or die DBI::errstr;


for $fld (1..2000) {  $flds[$fld] = " fld$fld int"; };
$fldstr = join(',', @flds);

$dbh->do("drop table if exists walrustable");
$qry = "create table walrustable ( $fldstr ) type=innodb ";
$dbh->do($qry) or die DBI::errstr;
$dbh->do("insert into walrustable (fld1963) values (8)") or die DBI::errstr;

$sth=$dbh->prepare("select fld1963 from walrustable");
$sth->execute;
@row = $sth->fetchrow_array;

print $row[0];

$sth->finish;
$dbh->disconnect;