Select Code to Download

(add-hook 'cperl-mode-hook (lambda()
                             (local-set-key "\C-cm" 'perl-insert-oo-me
+thod)))
...
  (backward-char 8)
  (cperl-indent-command)
)

Enter method name: foo

sub foo {
  my ( $self ) = @_;