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";