perl-module-version-after-point

gistfile1.el

; Need to remove font lock stuff before printing  
(defun perl-module-version-after-point ()
  (interactive)
  (save-excursion
    (if (search-forward-regexp "\\([A-Za-z]\\w*\\(::\\w+\\)*\\)" (point-at-eol) t)
        (let* ((module  (match-string 1))
	       ; syntax for cmd.exe and *nix
               (command (format "perl -e\"eval qq|require %s|; print %s->VERSION unless qq|$@|\"" module module))
               (version (shell-command-to-string command)))
          (message "%s: %s" module (if (string= version "") "unknown" version)))
      (message "No module after point"))))