use DBD::Oracle qw( :ora_types );
...
$sth->bind_param($param_num, ' ', { ora_type => ORA_CHAR });