Try:
use DBD::Oracle qw(:ora_types);

and then you can bind $data with:
$sth->bind_param( 2, $data, { ora_types => 'ORA_LONG'} )

which'll almost certainly work.

Hope you have more fun than I did