Select Code to Download

my $result= $sth->execute() or die("error...");

...
      $ret = $aRet[0];
      }
   } while ($sth->odbc_more_results);