gọi một thủ tục được lưu trữ với tham số đầu vào và con trỏ ra trong tập lệnh perl

Vui lòng thử (như trong bộ sưu tập của René Nyffenegger )

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