#!/bin/sh

if [ -z "$1" ]; then
    echo First argument must be path of desired Perl interpreter.
    exit 0;
fi

for f in `ls -ld ./* | grep '^-..x' | cut -d/ -f2`; do
    sed -e "1s,^#!.*perl.*,#!$1," < $f > $f.new
    cp $f.new $f
    rm $f.new
done
