declare

  l_conn   UTL_TCP.connection;
  l_result PLS_INTEGER;
begin

  l_conn := utl_tcp.open_connection(remote_host => '10.231.32.14,
                              remote_port =>  2323);
  
  l_result := utl_tcp.write_line(l_conn,
                                 || 'login' || ':' || 'pass' || ';');

  dbms_output.put_line(l_result);
  dbms_output.put_line(utl_tcp.get_line(l_conn, true) || '1');

  utl_tcp.close_connection(l_conn);
  utl_tcp.close_all_connections;

end;