; auto-insert for .pl and .pm
(load-library "autoinsert")

(define-auto-insert "\\.pl$" 'perl-auto-insert)
(defun perl-auto-insert ()
  (progn
    (insert "#! /usr/bin/perl\nuse warnings\nuse strict;\n\n")
    )
  ) 

(define-auto-insert "\\.cgi$" 'cgi-auto-insert)
(defun cgi-auto-insert ()
  (progn
    (insert "#! /usr/bin/perl\nuse warnings\nuse strict;\n\n")
    (insert "use CGI ();\n")
    (insert "use CGI::Carp qw(fatalsToBrowser warningsToBrowser);\n\n")
    )
  )

(define-auto-insert "\\.pm$" 'pm-auto-insert)
(defun pm-auto-insert () 
  (progn  
    (insert "package ")

    (insert (substring (file-name-nondirectory buffer-file-name) 0 -3))
    (insert ";\nuse warnings;\nuse strict\n\n")
    (insert "#------------------------------------------------------------\n\n")
    (insert "#------------------------------------------------------------\n")
    (insert "1; # modules have to return a true value\n")
  )
)

(add-hook 'find-file-hooks 'auto-insert)