(use uri-common intarweb http-client)

(call-with-response
 (make-request uri: (uri-reference "http://call-cc.org/"))
 void
 (lambda (resp)
   (let ((len (header-value 'content-length (response-headers resp))))
     (print "reading " len " bytes")
     (print (read-string len (response-port resp))))))

(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))))

void is preferred over write-request as the writer is only required to write the request body: not the entire request.