my $cursor;
$sth = $dbh->prepare(q{BEGIN myproc(:param, :cursor); END;});
$sth->bind_param(":param", 'my param');
$sth->bind_param_inout(":cursor", \$cursor, 32);