; Time-stamp: "2005-08-19 01:20:03 ADT"
; sburke@cpan.org

; 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