Select Code to Download

while( defined ( my @row = $sth->fetchrow_array ) ) {

while( my @row = $sth->fetchrow_array ) {

my $dbh = DBI->connect('DBI:CSV:f_dir=.;csv_quote_char=~;')  or die ..
+.