Output Param && Multiple Recordests From Stored Procedures

here's my code:

my $sth = $dbhSQL->prepare('{call proc(?,?,?)}');
$sth->bind_param(1,"asd");
$sth->bind_param(2,"klm");
$sth->bind_param_inout(3,$no_go, 1000);
$sth->execute;
print "no go = $no_go
";
while(
my @row=$sth->fetchrow_array){
print "@row
";
}
$sth->finish;

Here's my stored procedure:

CREATE PROCEDURE proc
@id varchar(50),@iyt varchar(20),@no_go int OUTPUT
AS
SET NOCOUNT ON
DECLARE @id_err int,@ans_glue_err int

BEGIN TRANSACTION
SELECT user_id FROM myTable
WHERE user_id=@id AND iyt=@iyt
SET @id_err = @@ERROR
IF @@ROWCOUNT <> 0
BEGIN
SELECT date,date_mod FROM ans_glue
WHERE user_id=@id
SET @no_go = 0
SET @ans_glue_err=@@ERROR
END
ELSE
BEGIN
SET @no_go = 1
END
IF @id_err = 0 AND @ans_glue_err = 0
BEGIN
COMMIT TRANSACTION
END
ELSE
BEGIN
ROLLBACK TRANSACTION
END

the procedure runs perfectly in Cold Fusion, returning both recordsets
and output param, but in perl, it won't print the output param and I
don't know how to access the second recordset
HELP!