(defun my-perl-refontify ()
  (interactive)
  (cperl-find-pods-heres)
  (font-lock-fontify-buffer))