anchor.diff:                                || {IP, Port} <- Targets]),
       BaseUrlsIndex = random:uniform(tuple_size(BaseUrls)),
   
  +    SSL_options = case basho_bench_config:get(http_use_ssl, false) of
  +                      false ->
  +                          [];
  +                      true ->
  +                          [{is_ssl, true}, {ssl_options, []}];
  +                      SSLOpts when is_list(SSLOpts) ->
  +                          [{is_ssl, true}, {ssl_options, SSLOpts}]
  +                  end,
  +    RawHeaders = basho_bench_config:get(http_raw_append_headers,[]),
  +    RequestTimeout = basho_bench_config:get(http_raw_request_timeout, 5000),
  +
       {ok, #state { client_id = ClientId,
                     base_urls = BaseUrls,
                     base_urls_index = BaseUrlsIndex,
                     files = Files,
                     path_params = Params,
                     solr_path = SolrPath,
  -                  searchgen = SearchGen }}.
  +                  searchgen = SearchGen,
  +                  opt_ssl_options = SSL_options,
  +                  opt_raw_headers = RawHeaders,
  +                  opt_request_timeout = RequestTimeout
  +                }}.
   
   run(stat, _, _, State) ->
       {Url, S2} = next_url(State),
  -    case do_stat(stat_url(Url)) of
  +    case do_stat(stat_url(Url), State) of
           {ok, _, _} ->
               {ok, S2};
           {error, Reason} ->
  
positive.code: 
          {ok, Url, Headers} ->
              Vclock = lists:keyfind("X-Riak-Vclock", 1, Headers),
              case do_put(Url, [State#state.client_id, Vclock], ValueGen) of
                  ok ->
                      {ok, S2};
                  {error, Reason} ->
  
negative.code: 
  run(get, KeyGen, _ValueGen, State) ->
      {NextUrl, S2} = next_url(State),
      case do_get(url(NextUrl, KeyGen, State#state.path_params), State) of
          {not_found, _Url} ->
              {ok, S2};
          {ok, _Url, _Headers} ->
  