Select Code to Download

use DBI

...
while (my @row = $sth->fetrow_array) {
    # do something with the fields
    }

use Text::CSV_XS;

...
    # do something with @$row
    }
close $fh;