viperl() {
    vi `perldoc -l $1 | sed -e 's/pod$/pm/'`
}