open Unix;;

(** Ouverture et connexion d'une socket *)
let open_connection address port =
  let socket = socket PF_INET SOCK_STREAM 0 in
  (* bind socket (ADDR_INET (inet_addr_any, 0));*)
  connect socket (ADDR_INET (address,port));
  socket;;