my $st = "insert into family_records (name,dadname,momname,myhisto
ry,mom history,dadhistory) values (:name,:dadname,:momname,:myhistory
,:momhistory,:dadhistory)";
    $stmt = $dbh->prepare($st);
    $stmt->bind_param(":name", $name);
    $stmt->bind_param(":dadname", $dadname);
    $stmt->bind_param(":momname", $momname);
    $stmt->bind_param(":myhistory", "$myhistory", {ora_type => 113, or
a_field =>"MYHISTORY" });
    $stmt->bind_param(":dadhistory", "$dadhistory", {ora_type => 113, 
ora_field =>"DADHISTORY" });
    $stmt->bind_param(":momhistory", "$momhistory", {ora_type => 113, 
ora_field =>"MOMHISTORY" });
    $dbh->commit();
    $stmt->finish();
    $dbh->disconnect();

##</code><code>##

SQL> desc family_records 
Name	 Null? Type
 -----------------------------------------
 NAME	 VARCHAR2(100) 
DADNAME	 VARCHAR2(100) 
MOMNAME	 VARCHAR2(100)
 MYHISTORY	 BLOB 
MOMHISTORY	 BLOB 
DADHISTORY	 BLOB