Graphite client in clojure

graphite-client.clj

(ns clj-client.core
  (import [java.net Socket]
          [java.io PrintWriter]))

(defn now []
  (int (/ (System/currentTimeMillis) 1000)))

(defn write-metric [name value timestamp]
  (with-open [socket (Socket. "localhost" 2003)
              os (.getOutputStream socket)]
    (binding [*out* (PrintWriter. os)]
      (println name value timestamp))))

(defn write-metric2 [name value timestamp]
  (-> (Socket. "localhost" 2003)
      (.getOutputStream)
      (PrintWriter.)
      (.println (str name value timestamp))))

(defn write-metric3 [name value timestamp]
  (binding [*out* (-> (Socket. "localhost" 2003)
                      (.getOutputStream)
                      (PrintWriter.))]
    (println name value timestamp)))