(defun gcm-scroll-down ()
  (interactive)
  (scroll-up 1))

(defun gcm-scroll-up ()
  (interactive)
  (scroll-down 1))

(global-set-key [(down)] 'gcm-scroll-down)
(global-set-key [(up)]   'gcm-scroll-up)


(global-font-lock-mode 1)    

(add-hook 'cperl-mode-hook (lambda () (local-set-key (kbd "RET") 'newline-and-indent)))

defalias 'perl-mode 'cperl-mode