diff --git a/collects/net/pop3.ss b/collects/net/pop3.ss
new file mode 100644
index 0000000000..ccb662b76d
--- /dev/null
+++ b/collects/net/pop3.ss
@@ -0,0 +1,28 @@
+(reference-library "pop3u.ss" "net")
+
+(invoke-open-unit/sig mzlib:pop3@ pop3)
+
+#|
+
+> (reference-library "pop3.ss" "net")
+> (define c (pop3:connect-to-server "cs.rice.edu"))
+> (pop3:authenticate/plain-text "scheme" "********" c)
+> (pop3:get-mailbox-status c)
+100
+177824
+> (pop3:get-message/headers c 100)
+("Date: Thu, 6 Nov 1997 12:34:18 -0600 (CST)"
+ "Message-Id: <199711061834.MAA11961@new-world.cs.rice.edu>"
+ "From: Shriram Krishnamurthi <shriram@cs.rice.edu>"
+ ...
+ "Status: RO")
+> (pop3:get-message/complete  c 100)
+("Date: Thu, 6 Nov 1997 12:34:18 -0600 (CST)"
+ "Message-Id: <199711061834.MAA11961@new-world.cs.rice.edu>"
+ "From: Shriram Krishnamurthi <shriram@cs.rice.edu>"
+ ...
+ "Status: RO")
+("some body" "text" "goes" "." "here" "." "")
+> (pop3:disconnect-from-server c)
+
+|#