1 2 3 4 5 6 7 8
#!/bin/sh a=${0##*/} a=${a#pl} case $a in [A-z]) exec perldoc -$a "$@" ;; *) exec perldoc "$@" ;; esac