declare
                    v_total_size  number(20);
                    v_position    number(20) := 1;
                    v_buff_len    number(20) := 32760;
                    v_buff          raw(32760);
                begin
                    v_total_size := dbms_lob.getlength(p_file_blob);
                    v_out_file := utl_file.fopen(DIRECTORY_NAME, FILE_NAME,'wb', 32760);

                    while v_position < v_total_size loop
                          dbms_lob.read(p_file_blob, v_buff_len, v_position, v_buff);
                          utl_file.put_raw(v_out_file, v_buff);
                          utl_file.fflush(v_out_file);
                          v_position := v_position + v_buff_len;
                    end loop;
                    utl_file.fclose(v_out_file);
                end;