my $sth = $dbh->prepare("SELECT * FROM $table WHERE 1=0");
$sth->execute;
my @cols = @{$sth->{NAME_lc}};
$sth->finish;