1 nmap <C-G>p :call HS_pod()<ENTER>

     2 

     3 command! Pod  :call HS_pod()

     4 

     5 function! HS_pod()

     6     :!perldoc %

     7 endfunc

     8 

     9 " vim:ft=vim: