(use http-client intarweb uri-common extras)

(call-with-response
 (make-request uri: (uri-reference "http://www.google.com/"))
 write-request
 (lambda (p)
  (read-string #f (response-port p))))