Select Code to Download

#!/usr/bin/perl
use warnings;
...
while (my @row = $select->fetchrow_array) {
    say "@row";
}