I am using freetds, DBI and DBD::Sybase as my means of connecting to sql server. I can connect to the SQL server because I can do a select \@\@version sql command and get the output ok. So I know the perl connection to SQL server is ok. Here is a test procedure I used and it still does not work. Stored Procedure is ->

CREATE PROCEDURE TEST @results numeric(9,4) OUTPUT 
AS

BEGIN
SELECT @results = 9999.9999
      
END
[download]

Here is the sql statement I use to retrieve the result at a sql command line.

declare @mytest numeric(9,4)
exec TEST @results=@mytest OUTPUT
print @mytest
[download]

Now how would I translate that to my perl code to retrieve the output which should just be 9999.9999. Please note that the last print @mytest is only being used to print to stdout. Please advise.