Select Code to Download

 while ( my @row = $sth->fetchrow_array ) {
      print "@row\n";
   }

my @row;

while ( @row = $sth->fetchrow_array ) {
      print "@row\n";
}