$sth = $dbh->prepare("
declare \@ret numeric
exec TEST \@results=@ret
select @ret
");
$sth->execute;
do {
    while($d = $sth->fetch) {
        print "@$d\n";
    }
} while($sth->{syb_more_results});