1
  
2
  
3
  
4
  
5
  
6
  
7
  
8
  
9
  
10
  
11
  
12
  
13
  
14
  
15
  
16
  
17
  
18
  
19
  
20
  
21
  
22
  
23
  
24
  
25
  
#! /bin/sh 
# 
# $Id$ 
 
DIR="`dirname $0`" 
if [ ! -f "$DIR/perlhelper" ] ; then 
  DIR="`pwd`" 
fi 
if [ ! -f "$DIR/perlhelper" ] ; then 
  echo >&2 "$0 $$: unable to find 'perlhelper' script" 
  exit 1 
fi 
OLDIFS="$IFS" 
IFS=":" 
for X in $PATH 
do 
  IFS="$OLDIFS" 
  if [ -f "$X/perl" ] ; then 
     exec "$X/perl" "$DIR/perlhelper" "$@" 
  fi 
done 
IFS="$OLDIFS" 
echo >&2 "$0 $$: unable to locate Perl interpreter" 
exit 1