1: #!/usr/local/bin/perl
    2: #
    3: # modify the '#!/usr/local/bin/perl'
    4: # line in all scripts that rely on perl.
    5: #
    6: 
    7: require "find.pl";
    8: 
    9: $#ARGV == 0 || print STDERR "usage: perlpath newpath  (eg /usr/bin)\n";
   10: &find(".");
   11: 
   12: sub wanted
   13:         {
   14:         return unless /\.pl$/ || /^[Cc]onfigur/;
   15: 
   16:         open(IN,"<$_") || die "unable to open $dir/$_:$!\n";
   17:         @a=<IN>;
   18:         close(IN);
   19: 
   20:         if (-d $ARGV[0]) {
   21:                 $a[0]="#!$ARGV[0]/perl\n";
   22:         }
   23:         else {
   24:                 $a[0]="#!$ARGV[0]\n";
   25:         }
   26: 
   27:         # Playing it safe...
   28:         $new="$_.new";
   29:         open(OUT,">$new") || die "unable to open $dir/$new:$!\n";
   30:         print OUT @a;
   31:         close(OUT);
   32: 
   33:         rename($new,$_) || die "unable to rename $dir/$new:$!\n";
   34:         chmod(0755,$_) || die "unable to chmod $dir/$new:$!\n";
   35:         }