keybinding with a func in elisp

;;run the current perl program
(defun run-perl ()
  (interactive)
  (setq perl-buffer-name buffer-file-name)
  (shell-command (concat "perl " perl-buffer-name))
)
(add-hook 'cperl-mode-hook
 (lambda ()
  (local-set-key (kbd "C-p r") 'run-perl)))