diff --git a/www/Makefile b/www/Makefile
index ae68bed5ec84..6e604b6c150f 100644
--- a/www/Makefile
+++ b/www/Makefile
@@ -371,6 +371,7 @@
     SUBDIR += p5-HTML-Pager
     SUBDIR += p5-HTML-Parser
     SUBDIR += p5-HTML-QuickCheck
+    SUBDIR += p5-HTML-Scrubber
     SUBDIR += p5-HTML-SimpleParse
     SUBDIR += p5-HTML-StickyQuery
     SUBDIR += p5-HTML-Stream
diff --git a/www/p5-HTML-Scrubber/Makefile b/www/p5-HTML-Scrubber/Makefile
new file mode 100644
index 000000000000..2f6e58bd31bd
--- /dev/null
+++ b/www/p5-HTML-Scrubber/Makefile
@@ -0,0 +1,24 @@
+# New ports collection makefile for:    p5-HTML-Scrubber
+# Date created:				31 Oct 2003
+# Whom:					Foxfair Hu <foxfair@FreeBSD.org>
+#
+# $FreeBSD$
+#
+
+PORTNAME=	HTML-Scrubber
+PORTVERSION=	0.04
+CATEGORIES=	www perl5
+MASTER_SITES=	${MASTER_SITE_PERL_CPAN}
+MASTER_SITE_SUBDIR=	HTML
+PKGNAMEPREFIX=	p5-
+
+MAINTAINER=	ports@FreeBSD.org
+COMMENT=	Perl extension for scrubbing/sanitizing html
+
+BUILD_DEPENDS=	${SITE_PERL}/${PERL_ARCH}/XML/Parser.pm:${PORTSDIR}/textproc/p5-XML-Parser
+
+PERL_CONFIGURE=	yes
+
+MAN3=		HTML::Scrubber.3
+
+.include <bsd.port.mk>
diff --git a/www/p5-HTML-Scrubber/distinfo b/www/p5-HTML-Scrubber/distinfo
new file mode 100644
index 000000000000..9e372a9dd916
--- /dev/null
+++ b/www/p5-HTML-Scrubber/distinfo
@@ -0,0 +1 @@
+MD5 (HTML-Scrubber-0.04.tar.gz) = 98000d728a5707907fd94ab9de224abb
diff --git a/www/p5-HTML-Scrubber/pkg-descr b/www/p5-HTML-Scrubber/pkg-descr
new file mode 100644
index 000000000000..e163c68d2d5b
--- /dev/null
+++ b/www/p5-HTML-Scrubber/pkg-descr
@@ -0,0 +1,10 @@
+HTML::Scrubber - Perl extension for scrubbing/sanitizing html. If you wanna 
+"scrub" or "sanitize" html input in a reliable an flexible fashion, then 
+this module is for you.
+
+When a tag is encountered, HTML::Scrubber allows/denies the tag using the 
+explicit rule if one exists. If no explicit rule exists, Scrubber applies 
+the default rule. If an explicit rule exists, but it's a simple rule(1), 
+the default attribute rule is applied.
+
+WWW: http://search.cpan.org/perldoc?HTML::Scrubber
diff --git a/www/p5-HTML-Scrubber/pkg-plist b/www/p5-HTML-Scrubber/pkg-plist
new file mode 100644
index 000000000000..cc79ec0ca3a4
--- /dev/null
+++ b/www/p5-HTML-Scrubber/pkg-plist
@@ -0,0 +1,5 @@
+%%SITE_PERL%%/%%PERL_ARCH%%/auto/HTML/Scrubber/.packlist
+%%SITE_PERL%%/HTML/Scrubber.pm
+@dirrm %%SITE_PERL%%/%%PERL_ARCH%%/auto/HTML/Scrubber
+@unexec rmdir %D/%%SITE_PERL%%/%%PERL_ARCH%%/auto/HTML 2>/dev/null || true
+@unexec rmdir %D/%%SITE_PERL%%/%%PERL_ARCH%%/HTML 2>/dev/null || true