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