Select Code to Download

use strict;
use DBI;
...
my @column_names = @{$sth->{NAME}};
$sth->finish();  # may be unnecessary
$dbh->disconnect();