(with-current-buffer
    (url-retrieve-synchronously "http://www.rosettacode.org")
  (goto-char (point-min))
  (search-forward "\n\n" nil t)  ;; skip headers
  (prin1 (buffer-substring (point) (point-max)))
  (kill-buffer (current-buffer)))