in
prerr_endline (sprintf "DEBUG: wgetting url '%s:%d%s'" addr port path);
let sockaddr = Unix.ADDR_INET (Unix.inet_addr_of_string addr, port) in
let suck = Unix.socket Unix.PF_INET Unix.SOCK_STREAM 0 in
Unix.connect suck sockaddr;
let outchan = Unix.out_channel_of_descr suck in
in
prerr_endline (sprintf "DEBUG: wgetting url '%s:%d%s'" addr port path);
let sockaddr = Unix.ADDR_INET (Unix.inet_addr_of_string addr, port) in
let suck = Unix.socket Unix.PF_INET Unix.SOCK_STREAM 0 in
Unix.connect suck sockaddr;
let outchan = Unix.out_channel_of_descr suck in