$dbh->do("create or replace procedure test1 as 
cursor c1 is
$sql;
begin
null;
end;
");
$dbh->parse("select referenced_name,referenced_type 
from dba_dependencies 
where name = 'TEST1' 
and type = 'PROCEDURE'");
...