(add-hook 'cperl-mode-hook
	  '(lambda ()
	      (define-skeleton perl-start
	       "skeleton for a perl program"
	       ""
	       
	       "#!/usr/local/bin/perl\nuse strict;\nuse warnings;"
	       )
	     
	     (local-set-key [(control c) ($)]
			    'perl-start)
))