Perldoc/cpandoc wrapper

pd.sh

#!/bin/bash

pd=$(type -P cpandoc)
pd=${pd:-"$(type -P perldoc)"}

$pd -f "$@" 2>/dev/null && exit
$pd    "$@" 2>/dev/null && exit
$pd -q "$@" 2>/dev/null && exit
man "$@"    2>/dev/null && exit

echo "$0: $@: No match" 1>&2
exit 1