Select Code to Download

$sth->bind_param($field_num, $lob_value, { ora_type => ORA_CLOB });

use DBD::Oracle qw(:ora_types);