(require 'pos-tip)
(require 'cl)

(add-hook 'cperl-mode-hook
	  (lambda ()
;;	    (cperl-toggle-autohelp)
	    (setq cperl-lazy-help-time 2)


	    (defadvice cperl-describe-perl-symbol (around cperl-describe-perl-symbol-tooltip activate)
	      "redirect message to tooltip"
	      (flet ((message (fmt &rest args)
                          (pos-tip-show (apply 'format fmt args))))
	    	ad-do-it))


	    ))