Select Code to Download

(defun run-buffer (args)
  (interactive "sArguments to script: ")
  (save-buffer)
  (shell-command (concat (buffer-file-name (current-buffer)) " " args)
+))

(defun hagus-perl-indent-setup ()
  (setq cperl-extra-newline-before-brace t)
...
  (cperl-set-style "linux"))

(add-hook 'cperl-mode-hook 'hagus-perl-indent-setup)

(defun indent-and-align (beginning end)
  (interactive "r")
...
    (indent-region beginning end nil)
    (align beginning end)
    ))