; Time-stamp: "2005-08-19 00:34:36 ADT"
; sburke@cpan.org
; desc{  to run a selected region as Perl code  }

; Put this in an Emacs startup file of yours.
; It provides a function such that you can evaluate a snippet of code
; you select as Perl code.
;
; Some day I'll implement a Perl equiv of the "*scratch*"
; Lisp-interaction buffer.  But for the time being, this is the next
; best thing.

(defun perl-eval () "Run selected region as Perl code" (interactive)
 (shell-command-on-region (mark) (point) "perl ")
)
(global-set-key "\M-p" 'perl-eval) ;; put it on meta-P

;; end