#!/bin/sh

a=${0##*/}
a=${a#pl}
case $a in
[A-z])	exec perldoc -$a "$@" ;;
*)	exec perldoc "$@" ;;
esac