anchor.diff:  
   
   cgi_worker(Parent, Arg, Exefilename, Scriptfilename, Pathinfo) ->
  +    Env = cgi_env(Arg, Scriptfilename, Pathinfo),
  +    ?Debug("~p~n", [Env]),
       CGIPort = open_port({spawn, Exefilename},
  -			[{env, cgi_env(Arg, Scriptfilename, Pathinfo)}, 
  +			[{env, Env}, 
   			 {cd, pathof(Scriptfilename)},
   			 exit_status,
   			 binary]),
  
positive.code: data_loop(Pid, Port) ->
      receive
  	{Port, {data,Data}} ->
  	    yaws_api:stream_chunk_deliver_blocking(Pid, Data),
  	    data_loop(Pid, Port);
  	{Port, {exit_status, Status}} ->
  
negative.code: cgi_env(Arg, Scriptfilename, Pathinfo) ->
      H = Arg#arg.headers,
      R = Arg#arg.req,
      case R#http_request.path of
  	{abs_path, RequestURI} -> ok;
  	_ -> RequestURI = undefined
      end,
      {Maj,Min} = R#http_request.version,
      {Hostname, Hosttail}=lists:splitwith(fun(X)->X /= $: end, 
  					 checkdef(H#headers.host)),
      Hostport = case Hosttail of
  
  		   [$: | P] -> P;
  		   [] -> "80"
  	       end,
  