my $sql = <<EOSQL;
    
INSERT INTO files (filename, content)
VALUES (?,?)

EOSQL

    my $query = $oracle->prepare($sql)
        or die "Insert prepare failed: $DBI::errstr";
    $query->bind_param(1,$filename)
        or die "Insert bind_param failed: $DBI::errstr";
    $query->bind_param(2,$content,{ora_type   =>  ORA_BLOB})
        or die "Insert bind_param failed: $DBI::errstr";
    $query->execute
        or die "Insert execute failed: $DBI::errstr";


##</code><code>##

    my $oracle = DBI->connect(  @dbi_path,
                    {
                        PrintError => 0,
                        RaiseError => 0,
                        AutoCommit => 0
                    }
                )
        or die "Database connect to $db_name failed:" . $DBI::errstr;