cperl-mode

gistfile1.el

;; cperl-mode
(defalias 'perl-mode 'cperl-mode)
(setq auto-mode-alist (cons '("\\.t$" . cperl-mode) auto-mode-alist))
(add-hook 'cperl-mode-hook
          '(lambda ()
             (cperl-set-style "PerlStyle")))
(setq cperl-highlight-variables-indiscriminately t)
(add-hook 'cperl-mode-hook
          '(lambda ()
             (font-lock-mode 1)
             (set-face-underline-p 'underline nil)
                  
                  (set-face-foreground 'cperl-array-face "blue")
             (set-face-background 'cperl-array-face "nil")
                  (set-face-background 'cperl-hash-face "nil")
                       
                       (set-face-foreground 'font-lock-function-name-face "magenta")
                       ;(set-face-foreground 'font-lock-string-face "")
                            
))