gistfile1.clj

(def dns-cache (new Cache))

(defn lookup-dns
  "Does a DNS lookup with no cache"
  [host]
  (let [dnsLookup (new Lookup host)]
    (. dns-cache clearCache)
    (. dnsLookup setCache dns-cache)
    (. dnsLookup run)
    (. dnsLookup getResult)))

<snip>

(let [agents (for [host hosts] (agent host))]
  (doseq [agent agents]
    (send-off agent lookup-dns))
  (apply await agents)
  (doseq [agent agents]
    (println @agent)))