#$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");
        $sth->execute;
        do {
                while($d = $sth->fetch)
                {
                        print "@$d\n";
                }
        } while($sth->{syb_more_results});