Select Code to Download

do {
...
        # do stuff here
     }
  } while ( defined( $sth->{odbc_more_results}) );

do {
     my @row;
...
        # do stuff here
     }
  } while ( $sth->{odbc_more_results} );

#!/usr/bin/env perl                                                   
+                        

...