Select Code to Download

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