diff --git a/devel/Makefile b/devel/Makefile
index 64b30934441b..93db6598a34a 100644
--- a/devel/Makefile
+++ b/devel/Makefile
@@ -2178,6 +2178,7 @@
     SUBDIR += p5-Tree-Simple
     SUBDIR += p5-Tree-Simple-View
     SUBDIR += p5-Tree-Simple-VisitorFactory
+    SUBDIR += p5-UDCode
     SUBDIR += p5-UI-Dialog
     SUBDIR += p5-UNIVERSAL-can
     SUBDIR += p5-UNIVERSAL-exports
diff --git a/devel/p5-UDCode/Makefile b/devel/p5-UDCode/Makefile
new file mode 100644
index 000000000000..2276a4d3f764
--- /dev/null
+++ b/devel/p5-UDCode/Makefile
@@ -0,0 +1,22 @@
+# New ports collection makefile for:	devel/p5-UDCode
+# Date created:				31 January 2010
+# Whom:					Anton Berezin <tobez@FreeBSD.org>
+#
+# $FreeBSD$
+#
+
+PORTNAME=	UDCode
+PORTVERSION=	1.03
+CATEGORIES=	devel perl5
+MASTER_SITES=	CPAN/../../authors/id/M/MJ/MJD
+MASTER_SITE_SUBDIR=	UDCode
+PKGNAMEPREFIX=	p5-
+
+MAINTAINER=	tobez@FreeBSD.org
+COMMENT=	Does a set of code words form a uniquely decodable code?
+
+PERL_CONFIGURE=	yes
+
+MAN3=	UDCode.3
+
+.include <bsd.port.mk>
diff --git a/devel/p5-UDCode/distinfo b/devel/p5-UDCode/distinfo
new file mode 100644
index 000000000000..23aee63887e1
--- /dev/null
+++ b/devel/p5-UDCode/distinfo
@@ -0,0 +1,3 @@
+MD5 (UDCode-1.03.tar.gz) = d315ac48c15786094bc2e3b65fce40bb
+SHA256 (UDCode-1.03.tar.gz) = 7b3cf541584ac8a6a1af33f1bf9afc9c929582827f263354c6f0f3dfd2f9c05e
+SIZE (UDCode-1.03.tar.gz) = 2968
diff --git a/devel/p5-UDCode/pkg-descr b/devel/p5-UDCode/pkg-descr
new file mode 100644
index 000000000000..5115abd69a56
--- /dev/null
+++ b/devel/p5-UDCode/pkg-descr
@@ -0,0 +1,8 @@
+A code is a set of strings, called the code words.  A code is
+"uniquely decodable" if any string S that is a concatenation of
+code words is so in exactly one way.
+
+The module provides functions that determine whether a given
+code is uniquely decodable or not.
+
+WWW: http://search.cpan.org/dist/UDCode/
diff --git a/devel/p5-UDCode/pkg-plist b/devel/p5-UDCode/pkg-plist
new file mode 100644
index 000000000000..5babacbce72f
--- /dev/null
+++ b/devel/p5-UDCode/pkg-plist
@@ -0,0 +1,3 @@
+%%SITE_PERL%%/UDCode.pm
+%%SITE_PERL%%/%%PERL_ARCH%%/auto/UDCode/.packlist
+@dirrmtry %%SITE_PERL%%/%%PERL_ARCH%%/auto/UDCode