(add-hook 'cperl-mode-hook (lambda()
                             (local-set-key "\C-cm" 'perl-insert-oo-method)))

(defun perl-insert-oo-method (methodname)
  "Insert Perl OO method"
  (interactive "MEnter method's name: ")
  (insert
    (format "sub %s {\nmy ( $self ) = @_;" methodname))
  (backward-char 8)
  (cperl-indent-command)
)

##</code><code>##

Enter method name: foo

##</code><code>##

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