(setq-default cperl-tab-always-indent nil)

##</code><code>##

; A named function to insert some specific text.
(defun my-insert-stuff ()
  "documentation string"
  (interactive "*")       ; "*" => error if read-only
  (insert "This is the text to insert. ")
  )
; Set it to a specific keystroke combo.
(global-set-key [(control c) m] 'my-insert-stuff)

; Load a specific template in a new unattached buffer.
(defun template-one ()
  "documentation string"  ; For help and info.
  (interactive)           ; Make this user accessible.

  (switch-to-buffer "template-one")
  (insert-file "~/template_one")
  )
; It too could be set to some specific key combination.
(global-set-key [(control c) o] 'template-one)

##</code><code>##

;;; ---- some "unicode" perl6 stuff 
;; The numeric codes are base 10 from iso-8869-1.
;; Keys are control-c followed by control-(>, <, y), 
;; without the shift key
(global-set-key [(control c) (control ?.)] 
 '(lambda () (interactive "*") (insert 187)))
(global-set-key [(control c) (control ?,)] 
 '(lambda () (interactive "*") (insert 171)))
(global-set-key [(control c) (control ?y)] 
 '(lambda () (interactive "*") (insert 165)))