declare  
........
  aconn utl_tcp.connection;
  pconn utl_tcp.connection;
  
  p_list      cm_ftp.t_string_table;
  l_amount  PLS_INTEGER;
  l_buffer  VARCHAR2(32767);

BEGIN

        ServerName :='11.111.111.1'; 
        ServerPort :=21; 
        UserName :='user'; 
        Passwrd :='12345';
        ServerFolder :='/iout';
                           
        BEGIN
            aconn := cm_ftp.login(ServerName, ServerPort, UserName, Passwrd);
        EXCEPTION
          WHEN OTHERS THEN
            Cl_Log:=Cl_Log||SQLERRM||';';
            ROLLBACK;
            RETURN;
        END;
        BEGIN
             cm_ftp.nlst(aconn, ServerFolder, p_list);
              EXCEPTION
                WHEN OTHERS THEN
                  Cl_Log:=Cl_Log||SQLERRM||';';
                  cm_ftp.logout(aconn);
                  ROLLBACK;                  
                  RETURN ;
        END;
        
      IF  (p_list.COUNT > 0) THEN
         FOR i IN p_list.FIRST..p_list.LAST LOOP
           l_s_FileNameFtp:=TRIM(SUBSTR(p_list(i),-1*(length(p_list(i))-instr(p_list(i),' ',-1))));
             if ((l_s_FileNameFtp <> '.') AND (l_s_FileNameFtp <> '..')) THEN
              DBMS_OUTPUT.PUT_LINE(i||'='||l_s_FileNameFtp);
              DBMS_LOB.createtemporary (lob_loc => c_result,
                                        cache   => TRUE,
                                        dur     => DBMS_LOB.call);

              pconn := cm_ftp.get_passive(aconn);
              l_result := UTL_TCP.write_line(aconn, 'RETR ' || ServerFolder||'/'||l_s_FileNameFtp);
                           
              BEGIN
                LOOP
                  l_amount := UTL_TCP.read_text (pconn, l_buffer, 1024);
                   dbms_output.put_line(l_buffer);
                  DBMS_LOB.writeappend(c_result, l_amount, l_buffer);
                END LOOP;
              EXCEPTION
                WHEN UTL_TCP.END_OF_INPUT THEN
                  NULL;
                WHEN OTHERS THEN
                  NULL;
              END;
      UTL_TCP.close_connection(pconn);
     END LOOP; 
    END IF;
  END;