--- 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