Cacher is the code snippet organizer for pro developers

(global-set-key "\C-cg" 'perl-insert-diagnostics) 

(defun perl-insert-diagnostics () 

"Insert 'carp...Data::Dumper'" 

(interactive) 

(insert "if ( $self->{verbose} > 2 ) {") 

(cperl-indent-command) 

(insert "\n") 

(insert "carp( Data::Dumper->Dump( [$self], ['self'] ) );") 

(cperl-indent-command) 

(insert "\n") 

(insert "}") 

(cperl-indent-command) 

(insert "\n") 

(cperl-indent-command) 
)