;; Copy and paste this into your .emacs, ensuring pcg.pl is in your path...
(defun pcg-buffer ()
  (interactive)
  (save-buffer)
  (call-process "pcg.pl" nil "*Messages*" nil (buffer-file-name))
  ;; WINDOWS
  ; (call-process "C:/windows/system32/cmd.exe"
  ;               nil "*Messages*" nil "/c" "C:/bin/pcg.pl" (buffer-file-name))
  (revert-buffer nil t))
(global-set-key [f6] 'pcg-buffer)