(use-modules (ice-9 popen))

(let* ((port (open-input-pipe "date --utc"))
       (str  (read-line port)))
  (close-pipe port)
  str)

;; In procedure module-lookup: Unbound variable: read-line