sig
  val set_debug : bool -> unit
  val perform : Curl.t -> Curl.curlCode Lwt.t
end