Select Code to Download

my $sth;
my @columns = qw( col1 col2 col3 col4 col5 col6 );
...
while (my $row = $sth->fetchrow_hashref) {
    ...
    }