my $query = $dbh->prepare( $SQLstatement );
 $query->execute();
 print "Column names: ", join( ', ', @{ $query->{NAME} }, "\n",
       "As upper: ", join( ', ', @{ $query->{NAME_uc} }, "\n",
       "As lower: ", join( ', ', @{ $query->{NAME_lc} }, "\n";