run-perl-on-current-buffer-file

gistfile1.txt

(define-derived-mode run-mode
  special-mode "Run"
  "help!!!"
  :init-value nil)

(defun run-perl-on-current-buffer-file ()
  (interactive)
  (save-buffer)
  (setq filename (buffer-file-name (current-buffer)))
  (delete-other-windows)
  (split-window-below)
  (other-window 1)
  (switch-to-buffer (get-buffer-create "*perl*"))
  (setq buffer-read-only nil)
  (erase-buffer)
  ; insert date+time
  (insert (shell-command-to-string (concat "head" " " filename)))
  ; insert date+time+elapsed
  (setq buffer-read-only t)
  (run-mode))

(global-set-key (kbd "<f12>") 'run-perl-on-current-buffer-file)