DECLARE

  l_c_conn utl_tcp.connection;

  l_pi_ret pls_integer;

BEGIN

  l_c_conn := utl_tcp.open_connection(remote_host => '192.168.1.201', remote_port => 4370, charset => 'AL32UTF8');

  l_pi_ret := utl_tcp.write_line(l_c_conn, 'GET / HTTP/1.0');

  l_pi_ret := utl_tcp.write_line(l_c_conn);

  BEGIN

    LOOP

      dbms_output.put_line(utl_tcp.get_line(l_c_conn, TRUE));

    END LOOP;

  EXCEPTION

  WHEN utl_tcp.end_of_input THEN

    NULL;

  END;

  utl_tcp.close_connection(l_c_conn);

END;

pdby1>
pdby1> DECLARE
  2
  3    l_c_conn utl_tcp.connection;
  4
  5    l_pi_ret pls_integer;
  6
  7  BEGIN
  8
  9    l_c_conn := utl_tcp.open_connection(remote_host => 'www.orafaq.com', remote_port => 80, charset => 'AL32UTF8');
 10
 11    l_pi_ret := utl_tcp.write_line(l_c_conn, 'GET / HTTP/1.0');
 12
 13    l_pi_ret := utl_tcp.write_line(l_c_conn);
 14
 15    BEGIN
 16
 17      LOOP
 18
 19        dbms_output.put_line(utl_tcp.get_line(l_c_conn, TRUE));
 20
 21      END LOOP;
 22
 23    EXCEPTION
 24
 25    WHEN utl_tcp.end_of_input THEN
 26
 27      NULL;
 28
 29    END;
 30
 31    utl_tcp.close_connection(l_c_conn);
 32
 33  END;
 34  /

PL/SQL procedure successfully completed.

pdby1>