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

# Fetch return value from procedure
do {
   while (my @aRet = $sth->fetchrow_array) {
      $ret = $aRet[0];
      }
   } while ($sth->odbc_more_results);