Select Code to Download

(add-hook 'perl-mode-hook
          (lambda ()
...
              (set (make-local-variable 'compile-command)
                   (concat "perl -c "
                             (file-name-completion buffer-file-name)))
+)))