Use cperl instead perl mode.
--- a/.emacs-my Wed Jul 04 20:56:55 2012 +0300
+++ b/.emacs-my Fri Jul 06 21:33:55 2012 +0300
@@ -2020,6 +2020,16 @@
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "perl, cperl")
+
+;; Use cperl instead perl mode.
+(mapc
+ (lambda (pair)
+ (if (eq (cdr pair) 'perl-mode)
+ (setcdr pair 'cperl-mode)))
+ (append auto-mode-alist interpreter-mode-alist))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(message "SML, Standard ML")
(eval-after-load 'sml