Help for this page

Select Code to Download

Select or download this

(defun my-perl-run-file ()
  (interactive)
...
      (erase-buffer)
      (call-process "/usr/bin/perl" nil (current-buffer) t file)
      (display-buffer (current-buffer)))))