Select Code to Download

(add-hook 'cperl-mode-hook
      '(lambda ()
          (define-skeleton perl-start
...
         (local-set-key [(control c) ($)]
                'perl-start)
))