1 files changed, 8 insertions, 0 deletions

diff --git a/pl b/pl
new file mode 100755
index 0000000..a331623
--- /dev/null
+++ b/pl
@@ -0,0 +1,8 @@
+#!/bin/sh
+
+a=${0##*/}
+a=${a#pl}
+case $a in
+[A-z])	exec perldoc -$a "$@" ;;
+*)	exec perldoc "$@" ;;
+esac