(defun perldoc-woman (target)
     "perldoc displayed via woman"
   (interactive "sPod: ")
   (let* (
         (buffer-name (concat "*perldoc-" target "*"))
         (perl-cmd
               (concat "perldoc -MPod::Man " target))
         )

     (require 'woman)
     (switch-to-buffer (get-buffer-create buffer-name))
     (erase-buffer)
     (shell-command perl-cmd 1)
     (woman-process-buffer)

     (list buffer-name perl-cmd) ;dbg
     )
   )