diff --git a/devel/p5-Tie-ToObject/Makefile b/devel/p5-Tie-ToObject/Makefile
new file mode 100644
index 00000000000..453daaf2bcd
--- /dev/null
+++ b/devel/p5-Tie-ToObject/Makefile
@@ -0,0 +1,19 @@
+# $OpenBSD: Makefile,v 1.1.1.1 2008/05/26 08:00:24 simon Exp $
+
+COMMENT =	tie to an existing object
+
+MODULES =	cpan
+DISTNAME =	Tie-ToObject-0.03
+CATEGORIES =	devel
+
+MAINTAINER =	Simon Bertrang <simon@openbsd.org>
+
+# Perl
+PERMIT_PACKAGE_CDROM =	Yes
+PERMIT_PACKAGE_FTP =	Yes
+PERMIT_DISTFILES_CDROM =Yes
+PERMIT_DISTFILES_FTP =	Yes
+
+REGRESS_DEPENDS =	::devel/p5-Test-use-ok
+
+.include <bsd.port.mk>
diff --git a/devel/p5-Tie-ToObject/distinfo b/devel/p5-Tie-ToObject/distinfo
new file mode 100644
index 00000000000..96fd55e1f16
--- /dev/null
+++ b/devel/p5-Tie-ToObject/distinfo
@@ -0,0 +1,5 @@
+MD5 (Tie-ToObject-0.03.tar.gz) = tPQ0mSwobVMfJok8eFQUVg==
+RMD160 (Tie-ToObject-0.03.tar.gz) = Qw6IOkQA6Y/0ec239ZLEdsqIAQI=
+SHA1 (Tie-ToObject-0.03.tar.gz) = P7ovNpG0uCoDulaegWzAjI87sQ0=
+SHA256 (Tie-ToObject-0.03.tar.gz) = oxoNRDD+FPWWIvMdt/JbInXa0uxS8QQL6wMNPoOtOvQ=
+SIZE (Tie-ToObject-0.03.tar.gz) = 3018
diff --git a/devel/p5-Tie-ToObject/pkg/DESCR b/devel/p5-Tie-ToObject/pkg/DESCR
new file mode 100644
index 00000000000..fc05d87f03a
--- /dev/null
+++ b/devel/p5-Tie-ToObject/pkg/DESCR
@@ -0,0 +1,7 @@
+While "tie" in Perl allows tying to an arbitrary object, the class in
+question must support this in it's implementation of TIEHASH, TIEARRAY
+or whatever.
+
+Tie::ToObject provides a very tie constructor that simply returns the
+object it was given as it's first argument.
+That way the side effects of calling $object->TIEHASH are avoided.
diff --git a/devel/p5-Tie-ToObject/pkg/PLIST b/devel/p5-Tie-ToObject/pkg/PLIST
new file mode 100644
index 00000000000..d6aa4fd7d73
--- /dev/null
+++ b/devel/p5-Tie-ToObject/pkg/PLIST
@@ -0,0 +1,4 @@
+@comment $OpenBSD: PLIST,v 1.1.1.1 2008/05/26 08:00:24 simon Exp $
+${P5SITE}/Tie/
+${P5SITE}/Tie/ToObject.pm
+@man man/man3p/Tie::ToObject.3p