#!/bin/sh -- # -*- perl -*-
   eval 'exec <perlpath>/bin/perl -S $0 ${1+"$@"}'
     if 0;

##</code><code>##

   #!<perlpath>/bin/perl 

##</code><code>##

#!/bin/sh
## this is the wrapper file: <toolroot>/perl-5.8.8/bin/perl
die () { echo "ERROR: $1"; exit 1; }
tool=`/usr/bin/basename $0`
perlroot=<mytoolroot>/tools/perl-5.8.8
arch=`/usr/bin/mach`;

## try to exec the perl binary
exe=$perlroot/$arch/bin/$tool
if [ -x $exe ]; then
   eval 'exec $exe ${1+"$@"}'
else
   die "Couldn't find $tool executable:  \"$exe\".";
fi