;;check perl syntax
(defun check-perl ()
  (interactive)
  (setq perl-buffer-name buffer-file-name)
  ;;(shell-command (concat "perl -f " perl-buffer-name))
  (compile (concat "perl -f " (buffer-file-name)))
)

(eval-after-load 'cperl-mode '(define-key cperl-mode-map (kbd "C-p k") 'check-perl))