1 2 3 4 5 6 7
function perldoc if type cpandoc > /dev/null 2>&1 cpandoc $argv else command perldoc $argv end end