CREATE TABLE LOB_PERL_TEST ( 
  ID   NUMBER, 
  CLB  CLOB);

procedure lob_perl_testp(id in number, clb in out clob) is
begin
	insert into lob_perl_test(id, clb)
	values(id, empty_clob())
	returning clb
	into clb;
end;
/