Select Code to Download

# assuming $sth is your SQL statement under DBI
$sth->execute();
...
}

print "$_\n" for @columns;