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