पर्ल स्क्रिप्ट में इनपुट पैरामीटर और आउट कर्सर के साथ एक संग्रहीत प्रक्रिया को लागू करना

कृपया कोशिश करें (जैसा कि रेने न्याफ्नेगर के संग्रह में है )

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