diff --git a/completions/perl b/completions/perl
index 2e1dac0a..eeea0eb2 100644
--- a/completions/perl
+++ b/completions/perl
@@ -117,7 +117,7 @@ _perldoc()
             _perlmodules $perl
             if [[ $cur == p* ]]; then
                 COMPREPLY+=( $( compgen -W \
-                    '$( MANPAGER=/bin/cat PAGER=/bin/cat man perl |  \
+                    '$( PERLDOC_PAGER=/bin/cat "$1" -u perl |  \
                      sed -ne "/perl.*Perl overview/,/perlwin32/p" | \
                      awk "\$NF=2 && \$1 ~ /^perl/ { print \$1 }" )' \
                     -- "$cur" ) )