DBD::Oracle::st execute failed: ORA-01465: invalid hex number (DBD ERROR: OCIStmtExecute)
##</code><code>##

Name   Null?    Type
----   -----    ----
ID     NOT NULL VARCHAR2(2)
DATA   NOT NULL BLOB

##</code><code>##

use strict;
use warnings 'all';
use Storable qw(nfreeze, thaw);
use DBD::Oracle qw(:ora_types);

my $id = shift;
my $thingy = 'Oh the joy' x 100; # dummy data, no effect on results

my %types = (ora_types => ORA_BLOB, ora_field => 'data');

my $data = eval { Storable::nfreeze(\$thingy) };
die "$@\n$data\n" if !$data || $@ ne '';

my $insert_stmt = "insert into blobtest values ('$id', ?)";

my $sth = $dbh->prepare($insert_stmt);
$sth->bind_param(1, $data, \%types);
$sth->execute();