;; Wrap perl scripts with emacs
(defmacro perl-script (name
                       description
                       executable)
  `(defun ,name ()
     ,description
     (interactive)
     (let ((buf (generate-new-buffer ,(symbol-name name))))
       (shell-command ,executable buf)
       buf)))