Select Code to Download

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

; A named function to insert some specific text.
(defun my-insert-stuff ()
...
  )
; It too could be set to some specific key combination.
(global-set-key [(control c) o] 'template-one)

;;; ---- some "unicode" perl6 stuff 
;; The numeric codes are base 10 from iso-8869-1.
...
 '(lambda () (interactive "*") (insert 171)))
(global-set-key [(control c) (control ?y)] 
 '(lambda () (interactive "*") (insert 165)))