(add-hook 'cperl-mode-hook
	  '(lambda () (and (setq outline-regexp "sub") (outline-minor-mode))))