Select Code to Download

$dbh->do("create or replace procedure test1 as 
cursor c1 is
...
where name = 'TEST1' 
and type = 'PROCEDURE'");
...