#!/bin/sh

DOC=`perldoc -l $1`

if [ -n "$DOC" ] && [ -f "$DOC" ]; then
    vim $DOC
fi