#!/usr/local/bin/perl## modify the '#!/usr/local/bin/perl'# line in all scripts that rely on perl.#require"find.pl";$#ARGV==0||printSTDERR"usage: perlpath newpath (eg /usr/bin)\n";&find(".");sub wanted{returnunless/\.pl$/||/^[Cc]onfigur/;open(IN,"<$_")||die"unable to open $dir/$_:$!\n";@a=<IN>;close(IN);if(-d$ARGV[0]){$a[0]="#!$ARGV[0]/perl\n";}else{$a[0]="#!$ARGV[0]\n";}# Playing it safe...$new="$_.new";open(OUT,">$new")||die"unable to open $dir/$new:$!\n";printOUT@a;close(OUT);rename($new,$_)||die"unable to rename $dir/$new:$!\n";chmod(0755,$_)||die"unable to chmod $dir/$new:$!\n";}