Select Code to Download

...
my $ST=$DB->prepare("call apps.package_name.proc(?, ?, ?)");
...
while (my $hr = $ST_result.fetchrow_hashref) {
    ... process data ...
}

procedure proc(
          arg1    in   varchar(32), 
...
        where col7=arg1 or col8=arg2
        ;
end;