(defun my-perl-run-file ()
  (interactive)
  (let ((file (buffer-file-name)))
    (with-current-buffer (get-buffer-create "*perl-output*")
      (erase-buffer)
      (call-process "/usr/bin/perl" nil (current-buffer) t file)
      (display-buffer (current-buffer)))))