;; Wrap perl scripts with emacs
(setq perl-program "C:\\perl\\bin\\perl.exe")
(setq perl-script-path "C:\\usr\\local\\bin\\")
(defmacro perl-script (name
                       description
                       executable)
  `(defun ,name ()
     ,description
     (interactive)
     (let ((buf (generate-new-buffer ,(symbol-name name))))
       (shell-command ,(concat perl-program
                               " "
                               perl-script-path
                               executable)
                      buf)
       buf)))