use DBD::Oracle qw(:ora_types);

   __PACKAGE__->data_type(cr_data => DBI::SQL_BINARY);
   __PACKAGE__->data_type(cr_data => { ora_type => ORA_BLOB, 
                                    ora_field => 'column_name' } );

   ....

##</code><code>##

    # Modify DBH LongReadLen for long binary object...
    my $dbh = __PACKAGE__->db_Main();
    my $current_LongReadLen = $dbh->{LongReadLen};

    # need to dynamically set to the length of your record
    # it's hardcoded to 512Kb for example...
    $dbh->{LongReadLen}     = 512 * 1024; 
    ...