diff --git a/chapter01/changelog.xml b/chapter01/changelog.xml
index f1a872aa2..f06222891 100644
--- a/chapter01/changelog.xml
+++ b/chapter01/changelog.xml
@@ -39,6 +39,10 @@
     <listitem>
       <para>2011-11-25</para>
       <itemizedlist>
+        <listitem>
+          <para>[matthew] - Add a patch to fix a security vulnerability in Perl.
+          Fixes <ulink url="&lfs-ticket-root;2963">#2963</ulink>.</para>
+        </listitem>
         <listitem>
           <para>[matthew] - Upgrade to GDBM-1.10. Fixes
           <ulink url="&lfs-ticket-root;2962">#2962</ulink>.</para>
diff --git a/chapter01/whatsnew.xml b/chapter01/whatsnew.xml
index 6d96dc9ad..dd310d237 100644
--- a/chapter01/whatsnew.xml
+++ b/chapter01/whatsnew.xml
@@ -229,7 +229,7 @@
     <title>Added:</title>
 
     <listitem>
-      <para>PLACEHOLDER</para>
+      <para>&perl-security-patch;</para>
     </listitem>
 
   </itemizedlist>-->
diff --git a/chapter03/patches.xml b/chapter03/patches.xml
index 15f2bf171..e62284737 100644
--- a/chapter03/patches.xml
+++ b/chapter03/patches.xml
@@ -147,6 +147,14 @@
       </listitem>
     </varlistentry>
 
+    <varlistentry>
+      <term>Perl Security Patch - <token>&perl-security-patch-size;</token>:</term>
+      <listitem>
+        <para>Download: <ulink url="&patches-root;&perl-security-patch;"/></para>
+        <para>MD5 sum: <literal>&perl-security-patch-md5;</literal></para>
+      </listitem>
+    </varlistentry>
+
 
     <varlistentry>
       <term>Procps HZ Errors Patch - <token>&procps-hz_fixes-patch-size;</token>:</term>
diff --git a/chapter06/perl.xml b/chapter06/perl.xml
index 9da372943..3f56cedd5 100644
--- a/chapter06/perl.xml
+++ b/chapter06/perl.xml
@@ -47,6 +47,10 @@
 
 <screen><userinput remap="pre">echo "127.0.0.1 localhost $(hostname)" &gt; /etc/hosts</userinput></screen>
 
+    <para>Apply a patch to fix a security vulnerability in Perl:</para>
+
+<screen><userinput remap="pre">patch -Np1 -i ../&perl-security-patch;</userinput></screen>
+
     <para>This version of Perl now builds the Compress::Raw::Zlib module. By
     default Perl will use an internal copy of the Zlib source for the build.
     Issue the following command so that Perl will use the Zlib library
diff --git a/patches.ent b/patches.ent
index a16fcd0cd..cd3f08e11 100644
--- a/patches.ent
+++ b/patches.ent
@@ -80,6 +80,10 @@
 <!ENTITY perl-libc-patch-md5 "23682f20b6785e97f99d33be7719c9d6">
 <!ENTITY perl-libc-patch-size "1 KB">
 
+<!ENTITY perl-security-patch "perl-&perl-version;-security_fix-1.patch">
+<!ENTITY perl-security-patch-md5 "7fa3e7e11fecf9d75f65452d700c3dd5">
+<!ENTITY perl-security-patch-size "1 KB">
+
 
 <!ENTITY procps-hz_fixes-patch "procps-&procps-version;-fix_HZ_errors-1.patch">
 <!ENTITY procps-hz_fixes-patch-md5 "2ea4c8e9a2c2a5a291ec63c92d7c6e3b">