diff --git a/openssl-1.0.1c-perlfind.patch b/openssl-1.0.1c-perlfind.patch
new file mode 100644
index 0000000..956afd6
--- /dev/null
+++ b/openssl-1.0.1c-perlfind.patch
@@ -0,0 +1,16 @@
+diff -up openssl-1.0.1c/util/perlpath.pl.perlfind openssl-1.0.1c/util/perlpath.pl
+--- openssl-1.0.1c/util/perlpath.pl.perlfind	2012-07-11 22:57:33.000000000 +0200
++++ openssl-1.0.1c/util/perlpath.pl	2012-07-12 00:31:12.102156275 +0200
+@@ -4,10 +4,10 @@
+ # line in all scripts that rely on perl.
+ #
+ 
+-require "find.pl";
++use File::Find;
+ 
+ $#ARGV == 0 || print STDERR "usage: perlpath newpath  (eg /usr/bin)\n";
+-&find(".");
++find(\&wanted, ".");
+ 
+ sub wanted
+ 	{
diff --git a/openssl.spec b/openssl.spec
index 0c04c21..7ab4655 100644
--- a/openssl.spec
+++ b/openssl.spec
@@ -42,6 +42,7 @@ Patch4: openssl-1.0.0-beta5-enginesdir.patch
 Patch5: openssl-0.9.8a-no-rpath.patch
 Patch6: openssl-0.9.8b-test-use-localhost.patch
 Patch7: openssl-1.0.0-timezone.patch
+Patch8: openssl-1.0.1c-perlfind.patch
 # Bug fixes
 Patch23: openssl-1.0.0-beta4-default-paths.patch
 # Functionality changes
@@ -141,6 +142,7 @@ from other formats to the formats used by the OpenSSL toolkit.
 %patch5 -p1 -b .no-rpath
 %patch6 -p1 -b .use-localhost
 %patch7 -p1 -b .timezone
+%patch8 -p1 -b .perlfind
 
 %patch23 -p1 -b .default-paths
 
@@ -423,6 +425,7 @@ rm -rf $RPM_BUILD_ROOT/%{_libdir}/fipscanister.*
 %changelog
 * Wed Jul 11 2012 Tomas Mraz <tmraz@redhat.com> 1.0.1c-2
 - fix s_server with new glibc when no global IPv6 address (#839031)
+- make it build with new Perl
 
 * Tue May 15 2012 Tomas Mraz <tmraz@redhat.com> 1.0.1c-1
 - new upstream version