Select Code to Download

#$sth = $dbh->prepare("declare \@ret numeric exec TEST \@results=@ret 
+select @ret");
 $sth = $dbh->prepare("declare \@ret numeric(9,4) exec TEST \@results=
+@ret select @ret");
...
                        print "@$d\n";
                }
        } while($sth->{syb_more_results});