Select Code to Download

my $sql = "BEGIN :res := my_package.my_function; END;";
my $sth = $dbh->prepare($sql)
$sth->bind_param_inout( ":res", \$result, 0, { ora_type => ORA_RSET } 
+);

use DBD::Oracle qw(ORA_RSET);