.emacs addition

Long drought of posting- been very busy with a baby and the way and lots of home remodeling to be done. Here is a snippet from my .emacs file, put here for my own reference more than anything. If you are the type who digs this sort of thing, feel free to comment and/or improve upon it.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; insert a generic perl header block ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun perl-header-block()
(interactive)
(insert “#!/usr/bin/perln”)
(insert “# ==================================================================n”)
(insert “# Author: Danny Andersonn”)
(insert “#n”)
(insert “# Date: n”)
(insert “#n”)
(insert “# Purpose: n”)
(insert “#n”)
(insert “# Usage: n”)
(insert “#n”)
(insert “# ==================================================================n”)
(insert “nn”)
(insert “use strict;n”)
(forward-line -10)
(end-of-line)
(timestamp)
(forward-line 4)
(end-of-line)
(insert ” ./”)
(insert (buffer-name))
(insert ” “)
(forward-line -2)
(end-of-line)
)