#!/bin/bash

PERL_BIN=$1;

if [[ ! -x ${PERL_BIN} ]]; then
   echo "${PERL_BIN} is not executable";
   exit 0;
fi

find `pwd` -type f -print |
  while read filename
  do
    (
    sed 's#/usr/bin/perl#${PERL_BIN}#g' $filename > ${filename}.new;
    mv ${filename}.new $filename;
    )
done