(use http-client intarweb)
(define (cookie-test)
  (call-with-values 
      (lambda ()
	(with-input-from-request "http://proxy-vollmar/index.php" #f read-all))
    (lambda (response-body request-uri response)
      (pp (response-headers response))
      response-body)))

(cookie-test)
(pp (get-cookies-for-uri "http://proxy-vollmar/index.php"))
(cookie-test)