--- a/.emacs-my	Fri Jul 06 21:33:55 2012 +0300
+++ b/.emacs-my	Fri Jul 06 21:38:16 2012 +0300
@@ -2028,6 +2028,12 @@
    (if (eq (cdr pair) 'perl-mode)
        (setcdr pair 'cperl-mode)))
  (append auto-mode-alist interpreter-mode-alist))
+;; Don't show all man page. I set man switches to "-a"...
+(add-hook
+ 'cperl-mode-hook
+ '(lambda ()
+    (make-local-variable 'Man-switches)
+    (setq Man-switches nil)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "SML, Standard ML")