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

##</code><code>##

(defun hagus-perl-indent-setup ()
  (setq cperl-extra-newline-before-brace t)
  (setq cperl-indent-level 4)
  (setq cperl-brace-offset -2)
  (hs-minor-mode)
  (cperl-set-style "linux"))

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

##</code><code>##

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