anropar en lagrad procedur med indataparameter och utmarkör i perl-skript

Försök (som i René Nyffeneggers samling )

my $sth = $dbh->prepare(
  q{
    DECLARE
      curs sys_refcursor;
    BEGIN
      Getproc(:category, :curs);
    END;
  });