diff --git a/devel/Makefile b/devel/Makefile
index 9c47a1fe0c59..be92de4bcf28 100644
--- a/devel/Makefile
+++ b/devel/Makefile
@@ -787,6 +787,7 @@
     SUBDIR += p5-File-Grep
     SUBDIR += p5-File-Lock
     SUBDIR += p5-File-MMagic
+    SUBDIR += p5-File-MimeInfo
     SUBDIR += p5-File-Modified
     SUBDIR += p5-File-NCopy
     SUBDIR += p5-File-NFSLock
diff --git a/devel/p5-File-MimeInfo/Makefile b/devel/p5-File-MimeInfo/Makefile
new file mode 100644
index 000000000000..950bcf0ce3eb
--- /dev/null
+++ b/devel/p5-File-MimeInfo/Makefile
@@ -0,0 +1,34 @@
+# New ports collection makefile for:	devel/p5-File-MimeInfo
+# Date created:				Aug 21 2004
+# Whom:					Rong-En Fan <rafan@infor.org>
+#
+# $FreeBSD$
+#
+
+PORTNAME=	File-MimeInfo
+PORTVERSION=	0.10
+CATEGORIES=	devel perl5
+MASTER_SITES=	${MASTER_SITE_PERL_CPAN}
+MASTER_SITE_SUBDIR=	../../authors/id/P/PA/PARDUS/${PORTNAME}
+PKGNAMEPREFIX=	p5-
+
+MAINTAINER=	rafan@infor.org
+COMMENT=	Determine file type
+
+BUILD_DEPENDS=	${SITE_PERL}/File/BaseDir.pm:${PORTSDIR}/devel/p5-File-BaseDir
+RUN_DEPENDS=	${BUILD_DEPENDS}
+
+PERL_CONFIGURE=	yes
+
+MAN1=		mimetype.1
+MAN3=		File::MimeInfo::Magic.3 \
+		File::MimeInfo::Rox.3 \
+		File::MimeInfo.3
+
+.include <bsd.port.pre.mk>
+
+.if ${PERL_LEVEL} <= 500503
+IGNORE=	"Perl 5.6 or newer required. Install lang/perl5 or lang/perl5.8 and try again."
+.endif
+
+.include <bsd.port.post.mk>
diff --git a/devel/p5-File-MimeInfo/distinfo b/devel/p5-File-MimeInfo/distinfo
new file mode 100644
index 000000000000..03abc04172e8
--- /dev/null
+++ b/devel/p5-File-MimeInfo/distinfo
@@ -0,0 +1,2 @@
+MD5 (File-MimeInfo-0.10.tar.gz) = 79c8d21705ce9d86a415275b8b2e6c52
+SIZE (File-MimeInfo-0.10.tar.gz) = 16498
diff --git a/devel/p5-File-MimeInfo/pkg-descr b/devel/p5-File-MimeInfo/pkg-descr
new file mode 100644
index 000000000000..01cea569bf86
--- /dev/null
+++ b/devel/p5-File-MimeInfo/pkg-descr
@@ -0,0 +1,13 @@
+This module can be used to determine the mime type of a file. It
+tries to implement the freedesktop specification for a shared
+MIME database.
+
+For this module shared-mime-info-spec 0.12 was used.
+
+This package only uses the globs file. No real magic checking is
+used. The File::MimeInfo::Magic package is provided for magic typing.
+
+If you want to detemine the mimetype of data in a memory buffer
+you should use File::MimeInfo::Magic in combination with IO::Scalar.
+
+WWW: htto://search.cpan.org/dist/File-MimeInfo/
diff --git a/devel/p5-File-MimeInfo/pkg-plist b/devel/p5-File-MimeInfo/pkg-plist
new file mode 100644
index 000000000000..ace9aff09fb2
--- /dev/null
+++ b/devel/p5-File-MimeInfo/pkg-plist
@@ -0,0 +1,9 @@
+bin/mimetype
+%%SITE_PERL%%/File/MimeInfo.pm
+%%SITE_PERL%%/File/MimeInfo/Rox.pm
+%%SITE_PERL%%/File/MimeInfo/Magic.pm
+%%SITE_PERL%%/%%PERL_ARCH%%/auto/File/MimeInfo/.packlist
+@unexec rmdir %D/%%SITE_PERL%%/File/MimeInfo 2>/dev/null || true
+@unexec rmdir %D/%%SITE_PERL%%/File 2>/dev/null || true
+@unexec rmdir %D/%%SITE_PERL%%/%%PERL_ARCH%%/auto/File/MimeInfo 2>/dev/null || true
+@unexec rmdir %D/%%SITE_PERL%%/%%PERL_ARCH%%/auto/File 2>/dev/null || true