Ajuda - UTL_FILE - Oracle 10g

Boa tarde,

Gostaria de saber se tem como excluir a ultima linha gerada após a execução de um cursor.

Ex mais ou menos isso aqui:

	declare cursor cur_linha is select 'teste linha' as linha from dual;

	 arquivo       utl_file.file_type;

	 r             cur_linha%rowtype;

	 l_texto       varchar2(108);

	 l_texto_arq   varchar2(108);

	begin

	  --

	  arquivo:= utl_file.fopen('$DIR', '$NOME_ARQ', 'w');

	  --

	  if utl_file.is_open(arquivo) then

	   open cur_linha;

	     loop

	       fetch cur_linha into r;

	       exit when cur_linha%notfound;

	       l_texto := rpad(r.linha, 108,' ' );

	       l_texto_arq := substr(l_texto, 2, 108);

	       utl_file.put_line(arquivo, l_texto_arq || chr(13));

	       utl_file.fflush(arquivo);

	     end loop;

	  end if;

	 --

	 utl_file.fclose(arquivo);

	end;

	 

	O resultado é um arquivo com duas linhas sendo uma com o conteúdo "teste linha" ao invés de uma linha somente.