diff --git a/R/aaa.R b/R/aaa.R
index cb25a4b..338c250 100644
--- a/R/aaa.R
+++ b/R/aaa.R
@@ -90,3 +90,11 @@ dlv = 32769
 )
 
 rr_types_rev <- set_names(names(rr_types), as.character(rr_types))
+
+httr::user_agent(
+  sprintf(
+    "clandnstine package v%s: (<%s>)",
+    utils::packageVersion("clandnstine"),
+    utils::packageDescription("clandnstine")$URL
+  )
+) -> .CLANDNSTINE_UA
diff --git a/R/doh-query.R b/R/doh-query.R
index f9dead7..61a1d6f 100644
--- a/R/doh-query.R
+++ b/R/doh-query.R
@@ -27,6 +27,7 @@ doh_post <- function(name, type = "A", server_path = "https://dns.quad9.net/dns-
       `Content-Type` = "application/dns-message",
       `Accept` = "application/dns-message"
     ),
+    .CLANDNSTINE_UA,
     encode = "raw",
     body = q$pack()
   ) -> res