diff --git a/share/sgml/man-refs.pl b/share/sgml/man-refs.pl
new file mode 100644
index 0000000000..48d96b6421
--- /dev/null
+++ b/share/sgml/man-refs.pl
@@ -0,0 +1,11 @@
+#!/usr/bin/perl -w
+# $FreeBSD$
+
+use strict;
+
+while (<>) {
+        next unless (m,^(.*/)([\w\._-]+)\.(\d\w*)(\.gz)?$,);
+        my ($entity, $page, $volume) = ($2, $2, $3);
+        $entity =~ y/_/./;
+        print "<!ENTITY man.$entity.$volume \"<citerefentry/<refentrytitle/$page/<manvolnum/$volume//\">\n";
+}