diff -Nru Tk800.023/Contrib/TickerTape Tk800.023.new/Contrib/TickerTape
--- Tk800.023/Contrib/TickerTape	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/Contrib/TickerTape	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 =head1 NAME 
 
diff -Nru Tk800.023/Contrib/book-examples/f-15.5.pl Tk800.023.new/Contrib/book-examples/f-15.5.pl
--- Tk800.023/Contrib/book-examples/f-15.5.pl	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/Contrib/book-examples/f-15.5.pl	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 #
 # Figure 15.5, p153
diff -Nru Tk800.023/Contrib/book-examples/f-16.1.pl Tk800.023.new/Contrib/book-examples/f-16.1.pl
--- Tk800.023/Contrib/book-examples/f-16.1.pl	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/Contrib/book-examples/f-16.1.pl	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 #
 # Figure 16.1, p159
diff -Nru Tk800.023/Contrib/book-examples/f-16.10.pl Tk800.023.new/Contrib/book-examples/f-16.10.pl
--- Tk800.023/Contrib/book-examples/f-16.10.pl	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/Contrib/book-examples/f-16.10.pl	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 #
 # Figure 16.8, p166
diff -Nru Tk800.023/Contrib/book-examples/f-16.2.pl Tk800.023.new/Contrib/book-examples/f-16.2.pl
--- Tk800.023/Contrib/book-examples/f-16.2.pl	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/Contrib/book-examples/f-16.2.pl	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 #
 # Figure 16.2, p161
diff -Nru Tk800.023/Contrib/book-examples/f-16.3.pl Tk800.023.new/Contrib/book-examples/f-16.3.pl
--- Tk800.023/Contrib/book-examples/f-16.3.pl	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/Contrib/book-examples/f-16.3.pl	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 #
 # Figure 16.3, p162
diff -Nru Tk800.023/Contrib/book-examples/f-16.6.pl Tk800.023.new/Contrib/book-examples/f-16.6.pl
--- Tk800.023/Contrib/book-examples/f-16.6.pl	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/Contrib/book-examples/f-16.6.pl	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 #
 # Figure 16.6, p165
diff -Nru Tk800.023/Contrib/book-examples/f-16.7.pl Tk800.023.new/Contrib/book-examples/f-16.7.pl
--- Tk800.023/Contrib/book-examples/f-16.7.pl	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/Contrib/book-examples/f-16.7.pl	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 #
 # Figure 16.7, p166
diff -Nru Tk800.023/Contrib/book-examples/f-16.8.pl Tk800.023.new/Contrib/book-examples/f-16.8.pl
--- Tk800.023/Contrib/book-examples/f-16.8.pl	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/Contrib/book-examples/f-16.8.pl	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 #
 # Figure 16.8, p166
diff -Nru Tk800.023/Contrib/book-examples/f-16.9.pl Tk800.023.new/Contrib/book-examples/f-16.9.pl
--- Tk800.023/Contrib/book-examples/f-16.9.pl	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/Contrib/book-examples/f-16.9.pl	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 #
 # Figure 16.8, p166
diff -Nru Tk800.023/Contrib/fd_demo Tk800.023.new/Contrib/fd_demo
--- Tk800.023/Contrib/fd_demo	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/Contrib/fd_demo	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Tk;
 require Tk::FileDialog;
diff -Nru Tk800.023/Contrib/testlistbox Tk800.023.new/Contrib/testlistbox
--- Tk800.023/Contrib/testlistbox	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/Contrib/testlistbox	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 use Tk;
 use Tk::TiedListbox;
 
diff -Nru Tk800.023/DragDrop/drag_test Tk800.023.new/DragDrop/drag_test
--- Tk800.023/DragDrop/drag_test	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/DragDrop/drag_test	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use Tk;
 use strict;
 use Tk::DragDrop qw(Sun);
diff -Nru Tk800.023/DragDrop/has_sun Tk800.023.new/DragDrop/has_sun
--- Tk800.023/DragDrop/has_sun	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/DragDrop/has_sun	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use Tk;
 
 my $mw = MainWindow->new;
diff -Nru Tk800.023/DragDrop/local_test Tk800.023.new/DragDrop/local_test
--- Tk800.023/DragDrop/local_test	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/DragDrop/local_test	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use Tk;
 use strict;
 use Tk::DragDrop;
diff -Nru Tk800.023/DragDrop/motion_test Tk800.023.new/DragDrop/motion_test
--- Tk800.023/DragDrop/motion_test	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/DragDrop/motion_test	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use Tk;
 use strict;
 use Tk::DragDrop;
diff -Nru Tk800.023/DragDrop/selection Tk800.023.new/DragDrop/selection
--- Tk800.023/DragDrop/selection	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/DragDrop/selection	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use Tk;
 use strict;
 
diff -Nru Tk800.023/DragDrop/site_test Tk800.023.new/DragDrop/site_test
--- Tk800.023/DragDrop/site_test	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/DragDrop/site_test	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use Tk;
 use strict;
 use Tk::DropSite;
diff -Nru Tk800.023/Extensions/ImageBack/background Tk800.023.new/Extensions/ImageBack/background
--- Tk800.023/Extensions/ImageBack/background	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/Extensions/ImageBack/background	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use Tk;
 use Tk::ImageBack;
 use Tk::Photo;
diff -Nru Tk800.023/HList/Tix2perl Tk800.023.new/HList/Tix2perl
--- Tk800.023/HList/Tix2perl	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/HList/Tix2perl	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Tk::Pretty;
 
diff -Nru Tk800.023/TixGrid/tgdemo_config Tk800.023.new/TixGrid/tgdemo_config
--- Tk800.023/TixGrid/tgdemo_config	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/TixGrid/tgdemo_config	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 # tixgrid demo
 #	standalone or sourceable in ptksh
 
diff -Nru Tk800.023/WinPhoto/try Tk800.023.new/WinPhoto/try
--- Tk800.023/WinPhoto/try	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/WinPhoto/try	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use Tk;             
 use Tk::WinPhoto;
 use Cwd;
diff -Nru Tk800.023/Xlib/drops Tk800.023.new/Xlib/drops
--- Tk800.023/Xlib/drops	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/Xlib/drops	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 
 use Tk;
diff -Nru Tk800.023/Xlib/load Tk800.023.new/Xlib/load
--- Tk800.023/Xlib/load	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/Xlib/load	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use strict;
 use Tk;
 use Tk::Xlib;
diff -Nru Tk800.023/Xlib/motif_site Tk800.023.new/Xlib/motif_site
--- Tk800.023/Xlib/motif_site	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/Xlib/motif_site	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use Tk;
 use Tk::Xlib;
 use Data::Dumper;
diff -Nru Tk800.023/Xlib/tree_demo Tk800.023.new/Xlib/tree_demo
--- Tk800.023/Xlib/tree_demo	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/Xlib/tree_demo	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use Tk;
 use Tk::Xlib;
 use Tk::HList;
diff -Nru Tk800.023/add_version Tk800.023.new/add_version
--- Tk800.023/add_version	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/add_version	Sat Sep  1 07:16:21 2001
@@ -1,4 +1,4 @@
-#!/tools/local/perl -w
+#!/usr/bin/perl -w
 use strict;
 use File::Find;
 use Getopt::Std;
diff -Nru Tk800.023/adj_demo Tk800.023.new/adj_demo
--- Tk800.023/adj_demo	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/adj_demo	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl  -w
+#!/usr/bin/perl  -w
 use Tk;
 require Tk::TextUndo;
 
diff -Nru Tk800.023/after_demo Tk800.023.new/after_demo
--- Tk800.023/after_demo	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/after_demo	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Tk;
 use strict;
diff -Nru Tk800.023/after_leak Tk800.023.new/after_leak
--- Tk800.023/after_leak	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/after_leak	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Tk;
 use Devel::Leak;
diff -Nru Tk800.023/al_bug Tk800.023.new/al_bug
--- Tk800.023/al_bug	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/al_bug	Sat Sep  1 07:16:29 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/nperl -w
+#!/usr/bin/perl -w
 
 use Tk;
 use Tk::Table;
diff -Nru Tk800.023/animate Tk800.023.new/animate
--- Tk800.023/animate	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/animate	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use Tk;
 
 my $mw = MainWindow->new;
diff -Nru Tk800.023/autoraise Tk800.023.new/autoraise
--- Tk800.023/autoraise	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/autoraise	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Tk;
 
diff -Nru Tk800.023/basic_demo Tk800.023.new/basic_demo
--- Tk800.023/basic_demo	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/basic_demo	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 # use Memory (2440);
 
diff -Nru Tk800.023/bin/defs Tk800.023.new/bin/defs
--- Tk800.023/bin/defs	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/bin/defs	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl 
+#!/usr/bin/perl 
 
 %def   = ();
 %need  = ();
diff -Nru Tk800.023/bin/defunc Tk800.023.new/bin/defunc
--- Tk800.023/bin/defunc	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/bin/defunc	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 while (<>)
  {
diff -Nru Tk800.023/bin/newstyle Tk800.023.new/bin/newstyle
--- Tk800.023/bin/newstyle	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/bin/newstyle	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 @files = @ARGV;
 
diff -Nru Tk800.023/bin/perms Tk800.023.new/bin/perms
--- Tk800.023/bin/perms	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/bin/perms	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use strict;
 use File::Find;
 
diff -Nru Tk800.023/bin/unres Tk800.023.new/bin/unres
--- Tk800.023/bin/unres	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/bin/unres	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 %done = ();
 %defs = ();
diff -Nru Tk800.023/bin/uselib Tk800.023.new/bin/uselib
--- Tk800.023/bin/uselib	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/bin/uselib	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl 
+#!/usr/bin/perl 
 
 use File::Find;
 
diff -Nru Tk800.023/bindtest Tk800.023.new/bindtest
--- Tk800.023/bindtest	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/bindtest	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use Tk;
 use Tk::Menubar;
 
diff -Nru Tk800.023/build Tk800.023.new/build
--- Tk800.023/build	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/build	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use Config;
 my $make = $Config{'make'};
 my @para;
diff -Nru Tk800.023/bulkedit Tk800.023.new/bulkedit
--- Tk800.023/bulkedit	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/bulkedit	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use strict;
 use Tk;
 use Tk::LabEntry;
diff -Nru Tk800.023/canvas_ps Tk800.023.new/canvas_ps
--- Tk800.023/canvas_ps	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/canvas_ps	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Tk;
 
diff -Nru Tk800.023/canvas_scroll Tk800.023.new/canvas_scroll
--- Tk800.023/canvas_scroll	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/canvas_scroll	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Tk;
 
diff -Nru Tk800.023/cbtest Tk800.023.new/cbtest
--- Tk800.023/cbtest	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/cbtest	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 use Tk;
 use Tk::Pretty;
diff -Nru Tk800.023/check_syms Tk800.023.new/check_syms
--- Tk800.023/check_syms	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/check_syms	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use File::Find;     
 use Config; 
 my @libs;
diff -Nru Tk800.023/checklen Tk800.023.new/checklen
--- Tk800.023/checklen	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/checklen	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use ExtUtils::Manifest "/mani/";
 
diff -Nru Tk800.023/classtree Tk800.023.new/classtree
--- Tk800.023/classtree	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/classtree	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use strict;
 use Tk;    
 use Tk::widgets qw(Tree Menubar);
diff -Nru Tk800.023/cleanup Tk800.023.new/cleanup
--- Tk800.023/cleanup	Wed Feb 21 19:27:16 2001
+++ Tk800.023.new/cleanup	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use File::Find;
 find(\&wanted,'.');
 
diff -Nru Tk800.023/clip_bug Tk800.023.new/clip_bug
--- Tk800.023/clip_bug	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/clip_bug	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 # Show a Tk canvas bug:
 # when scrolling a canvas, clipping for embedded windows
 # uses the embedded windows parent, not the canvas.
diff -Nru Tk800.023/compile/findloader Tk800.023.new/compile/findloader
--- Tk800.023/compile/findloader	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/compile/findloader	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use Config; 
 my $sfx = $Config{'lib_ext'};
 foreach my $dir (@INC)
diff -Nru Tk800.023/compile/splitfunc Tk800.023.new/compile/splitfunc
--- Tk800.023/compile/splitfunc	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/compile/splitfunc	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use IO::File;
 
 while (<>)
diff -Nru Tk800.023/copydate Tk800.023.new/copydate
--- Tk800.023/copydate	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/copydate	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl 
+#!/usr/bin/perl 
 
 use File::Find;
 use Time::Local;
diff -Nru Tk800.023/cursor_demo Tk800.023.new/cursor_demo
--- Tk800.023/cursor_demo	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/cursor_demo	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use Tk;
 
 my $mw = MainWindow->new;
diff -Nru Tk800.023/demos/browse Tk800.023.new/demos/browse
--- Tk800.023/demos/browse	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/demos/browse	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 #
 # This script generates a directory browser, which lists the working directory and allows you to open files or subdirectories
 # by double-clicking.
diff -Nru Tk800.023/demos/color_editor Tk800.023.new/demos/color_editor
--- Tk800.023/demos/color_editor	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/demos/color_editor	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 #
 # ColorEditor demonstration.
 
diff -Nru Tk800.023/demos/composite Tk800.023.new/demos/composite
--- Tk800.023/demos/composite	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/demos/composite	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 
 use English;
diff -Nru Tk800.023/demos/dialog Tk800.023.new/demos/dialog
--- Tk800.023/demos/dialog	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/demos/dialog	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 # Demonstrate how to use Dialog to create and manipulate dialog objects.
 # lusol@Lehigh.EDU  95/06/14
diff -Nru Tk800.023/demos/hello Tk800.023.new/demos/hello
--- Tk800.023/demos/hello	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/demos/hello	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 #
 # Simple Tk script to create a button that prints "Hello, world".  Click on 
 # the button to terminate the program.
diff -Nru Tk800.023/demos/ixset Tk800.023.new/demos/ixset
--- Tk800.023/demos/ixset	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/demos/ixset	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 # A nice interface to "xset" to change X server settings
 #
diff -Nru Tk800.023/demos/rmt Tk800.023.new/demos/rmt
--- Tk800.023/demos/rmt	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/demos/rmt	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -wT
+#!/usr/bin/perl -wT
 #
 # This script implements a simple remote-control mechanism for Tk 
 # applications.  It allows you to select an application and then type 
diff -Nru Tk800.023/demos/rolodex Tk800.023.new/demos/rolodex
--- Tk800.023/demos/rolodex	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/demos/rolodex	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 #
 # This script was written as an entry in Tom LaStrange's rolodex benchmark. 
 # It creates something that has some of the look and feel of a rolodex program,# although it's lifeless and doesn't actually do the rolodex application.
diff -Nru Tk800.023/demos/timer Tk800.023.new/demos/timer
--- Tk800.023/demos/timer	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/demos/timer	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 #
 # This script generates a counter with start and stop buttons.  Exit with 
 # Ctrl/c or Ctrl/q.
diff -Nru Tk800.023/demos/tom Tk800.023.new/demos/tom
--- Tk800.023/demos/tom	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/demos/tom	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 #
 # Sample program to get Tom Christiansen going with Perl/Tk.
 
diff -Nru Tk800.023/demos/widget Tk800.023.new/demos/widget
--- Tk800.023/demos/widget	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/demos/widget	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 require 5.004;
 
diff -Nru Tk800.023/demos/widget_old Tk800.023.new/demos/widget_old
--- Tk800.023/demos/widget_old	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/demos/widget_old	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 #
 # This script demonstrates the various widgets provided by Tk, along with many of the features of the Tk toolkit.  This file
 # only contains code to generate the main window for the application, which invokes individual demonstrations.  The code for 
diff -Nru Tk800.023/derived_test Tk800.023.new/derived_test
--- Tk800.023/derived_test	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/derived_test	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use Tk;
 require Tk::Text;
 
diff -Nru Tk800.023/destroy_test Tk800.023.new/destroy_test
--- Tk800.023/destroy_test	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/destroy_test	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 
 use Tk;
diff -Nru Tk800.023/dfpy Tk800.023.new/dfpy
--- Tk800.023/dfpy	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/dfpy	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 use ExtUtils::Manifest "/mani/";
 use Cwd;
diff -Nru Tk800.023/disbutton Tk800.023.new/disbutton
--- Tk800.023/disbutton	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/disbutton	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 package StickyButton;
 require Tk::Widget;
diff -Nru Tk800.023/dnd_demo Tk800.023.new/dnd_demo
--- Tk800.023/dnd_demo	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/dnd_demo	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 #
 # Demo code to exhibit features of dynamic construction and destruction of 
 # local (within app.) Drag and Drop sources and sinks. Written for and tested 
diff -Nru Tk800.023/dump_test Tk800.023.new/dump_test
--- Tk800.023/dump_test	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/dump_test	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use Tk;
 my $top = MainWindow->new;
 my $i   = $top->Photo(-file => Tk->findINC('icon.gif'));
diff -Nru Tk800.023/embed Tk800.023.new/embed
--- Tk800.023/embed	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/embed	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w 
+#!/usr/bin/perl -w 
 
 use Tk;
 use IO::File;
diff -Nru Tk800.023/error_prop Tk800.023.new/error_prop
--- Tk800.023/error_prop	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/error_prop	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Tk;
 use Tk::ErrorDialog;
diff -Nru Tk800.023/ewidth_demo Tk800.023.new/ewidth_demo
--- Tk800.023/ewidth_demo	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/ewidth_demo	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use Tk;
 use strict;
 
diff -Nru Tk800.023/exetype Tk800.023.new/exetype
--- Tk800.023/exetype	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/exetype	Sat Sep  1 07:16:19 2001
@@ -1,4 +1,4 @@
-#!perl -w
+#!/usr/bin/perl -w
 use strict;
 unless (@ARGV == 2) {
     print "Usage: $0 exefile [CONSOLE|WINDOWS]\n";
diff -Nru Tk800.023/fedemo Tk800.023.new/fedemo
--- Tk800.023/fedemo	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/fedemo	Sat Sep  1 07:16:28 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/new/perl -w
+#!/usr/bin/perl -w
 use strict;  
 my $FILE_LOG = (@ARGV) ? shift : 'README';
 
diff -Nru Tk800.023/fetail Tk800.023.new/fetail
--- Tk800.023/fetail	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/fetail	Sat Sep  1 07:16:18 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use strict;
 my $file = (@ARGV) ? shift : 'README';
 
diff -Nru Tk800.023/findbase Tk800.023.new/findbase
--- Tk800.023/findbase	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/findbase	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use File::Find;
 
diff -Nru Tk800.023/floppy Tk800.023.new/floppy
--- Tk800.023/floppy	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/floppy	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 use ExtUtils::Manifest "/mani/";
 use Cwd;
diff -Nru Tk800.023/font_demo Tk800.023.new/font_demo
--- Tk800.023/font_demo	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/font_demo	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use Tk;
 use Tk::X11Font;
 use Tk::ROText;
diff -Nru Tk800.023/font_test Tk800.023.new/font_test
--- Tk800.023/font_test	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/font_test	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 
 
diff -Nru Tk800.023/fonts Tk800.023.new/fonts
--- Tk800.023/fonts	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/fonts	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use strict;
 use Tk;              
 use Data::Dumper;
diff -Nru Tk800.023/forward_test Tk800.023.new/forward_test
--- Tk800.023/forward_test	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/forward_test	Sat Sep  1 07:16:27 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/nperl -w
+#!/usr/bin/perl -w
 use strict;
 use Tk;
                                        
diff -Nru Tk800.023/gdb.plx Tk800.023.new/gdb.plx
--- Tk800.023/gdb.plx	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/gdb.plx	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use Config;
 open(INIT,">.gdbinit") || die;
 my $perl = $^X;
diff -Nru Tk800.023/gedi Tk800.023.new/gedi
--- Tk800.023/gedi	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/gedi	Sat Sep  1 07:16:16 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 ###############################################################################
 # Copyright (c) 1999  Greg London
diff -Nru Tk800.023/geo_mgr Tk800.023.new/geo_mgr
--- Tk800.023/geo_mgr	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/geo_mgr	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Tk;
 
diff -Nru Tk800.023/geom Tk800.023.new/geom
--- Tk800.023/geom	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/geom	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Tk;
 
diff -Nru Tk800.023/grepc Tk800.023.new/grepc
--- Tk800.023/grepc	Sat Dec 30 13:16:02 2000
+++ Tk800.023.new/grepc	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/tools/local/perl -w
+#!/usr/bin/perl -w
 use strict;
 use vars qw($file);
 use Data::Dumper;
diff -Nru Tk800.023/grepperl Tk800.023.new/grepperl
--- Tk800.023/grepperl	Thu Mar 29 10:42:59 2001
+++ Tk800.023.new/grepperl	Sat Sep  1 07:08:10 2001
@@ -1,4 +1,4 @@
-#!/tools/local/perl -w
+#!/usr/bin/perl -w
 
 use Getopt::Std;
 
diff -Nru Tk800.023/grid_adj Tk800.023.new/grid_adj
--- Tk800.023/grid_adj	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/grid_adj	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl  -w
+#!/usr/bin/perl  -w
 use Tk;
 require Tk::TextUndo;
 require Tk::Adjuster;
diff -Nru Tk800.023/grid_test Tk800.023.new/grid_test
--- Tk800.023/grid_test	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/grid_test	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use Tk;
 my $mw = MainWindow->new;
 open(FILE,__FILE__);
diff -Nru Tk800.023/gridbug Tk800.023.new/gridbug
--- Tk800.023/gridbug	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/gridbug	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use Tk;
 use Carp;
 $top = MainWindow->new();
diff -Nru Tk800.023/hackMM Tk800.023.new/hackMM
--- Tk800.023/hackMM	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/hackMM	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use File::Find;
 
diff -Nru Tk800.023/hlfm Tk800.023.new/hlfm
--- Tk800.023/hlfm	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/hlfm	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use strict;
 use Tk;
 require Tk::Dirlist;
diff -Nru Tk800.023/hlist_bg Tk800.023.new/hlist_bg
--- Tk800.023/hlist_bg	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/hlist_bg	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use Tk;
 require Tk::HList;
 
diff -Nru Tk800.023/hlist_demo Tk800.023.new/hlist_demo
--- Tk800.023/hlist_demo	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/hlist_demo	Sat Sep  1 07:16:26 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/nperl -w
+#!/usr/bin/perl -w
 
 use lib qw(blib .);
 use Tk;
diff -Nru Tk800.023/icon Tk800.023.new/icon
--- Tk800.023/icon	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/icon	Sat Sep  1 07:16:13 2001
@@ -1,4 +1,4 @@
-#!/tools/local/perl -w
+#!/usr/bin/perl -w
 use Tk;
 my $mw = MainWindow->new;
 my $image = $mw->Photo('-file' => Tk->findINC("icon.gif"));
diff -Nru Tk800.023/iconimg Tk800.023.new/iconimg
--- Tk800.023/iconimg	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/iconimg	Sat Sep  1 07:16:25 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Tk;
 
diff -Nru Tk800.023/iconwin Tk800.023.new/iconwin
--- Tk800.023/iconwin	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/iconwin	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Tk;
 
diff -Nru Tk800.023/image_test Tk800.023.new/image_test
--- Tk800.023/image_test	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/image_test	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Tk;
 
diff -Nru Tk800.023/inline_bitmap Tk800.023.new/inline_bitmap
--- Tk800.023/inline_bitmap	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/inline_bitmap	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use strict;
 use Tk;             
 
diff -Nru Tk800.023/keyWords Tk800.023.new/keyWords
--- Tk800.023/keyWords	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/keyWords	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use File::Find;
 
diff -Nru Tk800.023/labelpack Tk800.023.new/labelpack
--- Tk800.023/labelpack	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/labelpack	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Tk;
 require Tk::LabEntry;
diff -Nru Tk800.023/lbformat_demo Tk800.023.new/lbformat_demo
--- Tk800.023/lbformat_demo	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/lbformat_demo	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use strict;
 use Tk;
 use Tk::Font;
diff -Nru Tk800.023/leak_test Tk800.023.new/leak_test
--- Tk800.023/leak_test	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/leak_test	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Tk;
 use Devel::Leak;
diff -Nru Tk800.023/lentry Tk800.023.new/lentry
--- Tk800.023/lentry	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/lentry	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Tk;
 
diff -Nru Tk800.023/linux-progbar-toy Tk800.023.new/linux-progbar-toy
--- Tk800.023/linux-progbar-toy	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/linux-progbar-toy	Sat Sep  1 07:16:00 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use Tk;
 use Tk::widgets qw(ProgressBar);
 
diff -Nru Tk800.023/local_demo Tk800.023.new/local_demo
--- Tk800.023/local_demo	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/local_demo	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use strict;
 use Tk qw(MainLoop *widget);
 use Carp;
diff -Nru Tk800.023/ls_table Tk800.023.new/ls_table
--- Tk800.023/ls_table	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/ls_table	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Tk;
 use Tk::Table;
diff -Nru Tk800.023/lsfonts Tk800.023.new/lsfonts
--- Tk800.023/lsfonts	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/lsfonts	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Tk;
 use Tk::Xlib;
diff -Nru Tk800.023/menubar Tk800.023.new/menubar
--- Tk800.023/menubar	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/menubar	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Tk;
 
diff -Nru Tk800.023/menubug Tk800.023.new/menubug
--- Tk800.023/menubug	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/menubug	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use Tk;
 use strict;
 
diff -Nru Tk800.023/mitem_test Tk800.023.new/mitem_test
--- Tk800.023/mitem_test	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/mitem_test	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
  
 require 5.003;
 use English;
diff -Nru Tk800.023/mkExt Tk800.023.new/mkExt
--- Tk800.023/mkExt	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/mkExt	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 sub translate
 {
diff -Nru Tk800.023/mkdist Tk800.023.new/mkdist
--- Tk800.023/mkdist	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/mkdist	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use strict;
 
 use ExtUtils::Manifest "/mani/";
diff -Nru Tk800.023/motif_hack Tk800.023.new/motif_hack
--- Tk800.023/motif_hack	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/motif_hack	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use Data::Dumper;
 use strict;
 use Tk;
diff -Nru Tk800.023/nested_dialog Tk800.023.new/nested_dialog
--- Tk800.023/nested_dialog	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/nested_dialog	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Tk;
 use Tk::Dialog;
diff -Nru Tk800.023/oddmenu_demo Tk800.023.new/oddmenu_demo
--- Tk800.023/oddmenu_demo	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/oddmenu_demo	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use strict;
 use Tk;
 
diff -Nru Tk800.023/pTk/LangIO.h.PL Tk800.023.new/pTk/LangIO.h.PL
--- Tk800.023/pTk/LangIO.h.PL	Sun Feb  4 20:16:51 2001
+++ Tk800.023.new/pTk/LangIO.h.PL	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use Config;
 my @gard = qw(
 STDIO_H
diff -Nru Tk800.023/pTk/Tcl-pTk Tk800.023.new/pTk/Tcl-pTk
--- Tk800.023/pTk/Tcl-pTk	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/pTk/Tcl-pTk	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Carp;
 
diff -Nru Tk800.023/pTk/chext Tk800.023.new/pTk/chext
--- Tk800.023/pTk/chext	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/pTk/chext	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 open(NEED,"<need") || die;
 while (<NEED>)
diff -Nru Tk800.023/pTk/counts Tk800.023.new/pTk/counts
--- Tk800.023/pTk/counts	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/pTk/counts	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
 sub count
 {
diff -Nru Tk800.023/pTk/findX Tk800.023.new/pTk/findX
--- Tk800.023/pTk/findX	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/pTk/findX	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 BEGIN { require Exporter };
 
diff -Nru Tk800.023/pTk/findcore Tk800.023.new/pTk/findcore
--- Tk800.023/pTk/findcore	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/pTk/findcore	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 BEGIN { require Exporter };
 
diff -Nru Tk800.023/pTk/findstrings Tk800.023.new/pTk/findstrings
--- Tk800.023/pTk/findstrings	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/pTk/findstrings	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 
 %table = ();
diff -Nru Tk800.023/pTk/from Tk800.023.new/pTk/from
--- Tk800.023/pTk/from	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/pTk/from	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use strict;
 
 use File::Find;
diff -Nru Tk800.023/pTk/genexc Tk800.023.new/pTk/genexc
--- Tk800.023/pTk/genexc	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/pTk/genexc	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 my %mTk;
 my $dir;
diff -Nru Tk800.023/pTk/mTk/tclmerge Tk800.023.new/pTk/mTk/tclmerge
--- Tk800.023/pTk/mTk/tclmerge	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/pTk/mTk/tclmerge	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use strict;
 
diff -Nru Tk800.023/pTk/mTk/tixmerge Tk800.023.new/pTk/mTk/tixmerge
--- Tk800.023/pTk/mTk/tixmerge	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/pTk/mTk/tixmerge	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use strict;
 
diff -Nru Tk800.023/pTk/makeenglish Tk800.023.new/pTk/makeenglish
--- Tk800.023/pTk/makeenglish	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/pTk/makeenglish	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 # BEGIN { push(@INC, qw(../../../lib ../../lib ../lib lib)) }
 
 die "Must be executed from Tk/pTk distribution directory\n" unless -f "Lang.h";
diff -Nru Tk800.023/pTk/mkVFunc Tk800.023.new/pTk/mkVFunc
--- Tk800.023/pTk/mkVFunc	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/pTk/mkVFunc	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use strict;               
 
 my %Ignore;
diff -Nru Tk800.023/pTk/mkXinfo Tk800.023.new/pTk/mkXinfo
--- Tk800.023/pTk/mkXinfo	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/pTk/mkXinfo	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 $file = shift;
 
diff -Nru Tk800.023/pTk/mkexc Tk800.023.new/pTk/mkexc
--- Tk800.023/pTk/mkexc	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/pTk/mkexc	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use strict;
 use vars qw(%ref %def);
 require "process_object";
diff -Nru Tk800.023/pTk/mkmethods Tk800.023.new/pTk/mkmethods
--- Tk800.023/pTk/mkmethods	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/pTk/mkmethods	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 $dst = shift;
 
diff -Nru Tk800.023/pTk/tdiff Tk800.023.new/pTk/tdiff
--- Tk800.023/pTk/tdiff	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/pTk/tdiff	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 sub fail
 {
diff -Nru Tk800.023/pTk/why Tk800.023.new/pTk/why
--- Tk800.023/pTk/why	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/pTk/why	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use strict;        
 
diff -Nru Tk800.023/pfm Tk800.023.new/pfm
--- Tk800.023/pfm	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/pfm	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use POSIX qw(getcwd);
 
 use Tk;
diff -Nru Tk800.023/pictgrid Tk800.023.new/pictgrid
--- Tk800.023/pictgrid	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/pictgrid	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use strict;
 use Tk;
 
diff -Nru Tk800.023/pipe_test Tk800.023.new/pipe_test
--- Tk800.023/pipe_test	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/pipe_test	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use Tk;
 
 require Tk::IO;
diff -Nru Tk800.023/pixels-points Tk800.023.new/pixels-points
--- Tk800.023/pixels-points	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/pixels-points	Sat Sep  1 07:16:24 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/new/perl -w
+#!/usr/bin/perl -w
 use strict;
 use Tk;
 use Tk::Xlib;
diff -Nru Tk800.023/pixmap_test Tk800.023.new/pixmap_test
--- Tk800.023/pixmap_test	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/pixmap_test	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use strict;
 use Tk;
 require Tk::Pixmap;
diff -Nru Tk800.023/pod/extract/extpod Tk800.023.new/pod/extract/extpod
--- Tk800.023/pod/extract/extpod	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/pod/extract/extpod	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use strict;            
 use Getopt::Std;
 use ExtUtils::Manifest "/mani/";
diff -Nru Tk800.023/pod/recat Tk800.023.new/pod/recat
--- Tk800.023/pod/recat	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/pod/recat	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use strict;
 my $sec;            
 my %cat;       
diff -Nru Tk800.023/pod/subs Tk800.023.new/pod/subs
--- Tk800.023/pod/subs	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/pod/subs	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use blib;
 use Tk;                     
 use strict;
diff -Nru Tk800.023/point_test Tk800.023.new/point_test
--- Tk800.023/point_test	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/point_test	Sat Sep  1 07:15:55 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use strict;
 use Tk;
 
diff -Nru Tk800.023/popup Tk800.023.new/popup
--- Tk800.023/popup	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/popup	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 
 use Tk;
diff -Nru Tk800.023/popup_menu Tk800.023.new/popup_menu
--- Tk800.023/popup_menu	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/popup_menu	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use strict;
 
 use Tk;
diff -Nru Tk800.023/prop_demo Tk800.023.new/prop_demo
--- Tk800.023/prop_demo	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/prop_demo	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Tk;
 
diff -Nru Tk800.023/ptked Tk800.023.new/ptked
--- Tk800.023/ptked	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/ptked	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use strict;
 use IO;
 use Socket;
diff -Nru Tk800.023/ptknews Tk800.023.new/ptknews
--- Tk800.023/ptknews	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/ptknews	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use strict;
 use Tk;
diff -Nru Tk800.023/ptksh Tk800.023.new/ptksh
--- Tk800.023/ptksh	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/ptksh	Sat Sep  1 07:16:23 2001
@@ -1,4 +1,4 @@
-#!perl -w
+#!/usr/bin/perl -w
 #
 # PTKSH 2.0
 #
diff -Nru Tk800.023/rebuild Tk800.023.new/rebuild
--- Tk800.023/rebuild	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/rebuild	Sat Sep  1 07:15:54 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/new/perl -w
+#!/usr/bin/perl -w
 open(STDERR,">&STDOUT") || die "Cannot redirect STDERR";
 $| = 1;
 use Cwd;
diff -Nru Tk800.023/scale_test Tk800.023.new/scale_test
--- Tk800.023/scale_test	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/scale_test	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Tk;
 
diff -Nru Tk800.023/scrolled_demo Tk800.023.new/scrolled_demo
--- Tk800.023/scrolled_demo	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/scrolled_demo	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Tk;
 use strict;
diff -Nru Tk800.023/sillymenu Tk800.023.new/sillymenu
--- Tk800.023/sillymenu	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/sillymenu	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use strict;
 use Tk;
 
diff -Nru Tk800.023/sockets Tk800.023.new/sockets
--- Tk800.023/sockets	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/sockets	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use IO::Socket;
 use Tk::IO;
diff -Nru Tk800.023/stripblib Tk800.023.new/stripblib
--- Tk800.023/stripblib	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/stripblib	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use File::Find;
 find(\&strip,'blib/arch');
 
diff -Nru Tk800.023/style_test Tk800.023.new/style_test
--- Tk800.023/style_test	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/style_test	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Tk;
 use Tk::HList;    
diff -Nru Tk800.023/submethods Tk800.023.new/submethods
--- Tk800.023/submethods	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/submethods	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 $meth = "pTk/Methods.def";
 
 %sub = ();
diff -Nru Tk800.023/symbols Tk800.023.new/symbols
--- Tk800.023/symbols	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/symbols	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Config;
 
diff -Nru Tk800.023/table_demo Tk800.023.new/table_demo
--- Tk800.023/table_demo	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/table_demo	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Tk;
 use Tk::Table;
diff -Nru Tk800.023/tainted Tk800.023.new/tainted
--- Tk800.023/tainted	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/tainted	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -T
+#!/usr/bin/perl -T
 
 use Tk;
 
diff -Nru Tk800.023/tcl2perl Tk800.023.new/tcl2perl
--- Tk800.023/tcl2perl	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/tcl2perl	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 # Highly experimental tcl -> perl converter, aimed at eventually
 # completeing Tix merge
diff -Nru Tk800.023/tcolour Tk800.023.new/tcolour
--- Tk800.023/tcolour	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/tcolour	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Tk;
 
diff -Nru Tk800.023/text_demo Tk800.023.new/text_demo
--- Tk800.023/text_demo	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/text_demo	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Tk;
 require Tk::Text;
diff -Nru Tk800.023/tie_basic Tk800.023.new/tie_basic
--- Tk800.023/tie_basic	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/tie_basic	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl 
+#!/usr/bin/perl 
 
 # use Memory (2440);
 
diff -Nru Tk800.023/tiehandle Tk800.023.new/tiehandle
--- Tk800.023/tiehandle	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/tiehandle	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Tk;
 
diff -Nru Tk800.023/tietext Tk800.023.new/tietext
--- Tk800.023/tietext	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/tietext	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use Tk;
 
 {package Tk::Text::Contents;
diff -Nru Tk800.023/time Tk800.023.new/time
--- Tk800.023/time	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/time	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use Tk::Stats 'Start';
 use strict;
 use Tk;
diff -Nru Tk800.023/tiny Tk800.023.new/tiny
--- Tk800.023/tiny	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/tiny	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use strict;
 use Tk;
 use Tk::widgets qw(Button);  
diff -Nru Tk800.023/tixwm_demo Tk800.023.new/tixwm_demo
--- Tk800.023/tixwm_demo	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/tixwm_demo	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Tk;
 use Tk::Dialog;
diff -Nru Tk800.023/tkperldoc Tk800.023.new/tkperldoc
--- Tk800.023/tkperldoc	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/tkperldoc	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use strict;
 use Tk;
diff -Nru Tk800.023/tkpsh Tk800.023.new/tkpsh
--- Tk800.023/tkpsh	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/tkpsh	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 require 5.001;
 use IO::Handle;
diff -Nru Tk800.023/tktail Tk800.023.new/tktail
--- Tk800.023/tktail	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/tktail	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use strict;
 use Tk;
 use IO::File;
diff -Nru Tk800.023/two_main Tk800.023.new/two_main
--- Tk800.023/two_main	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/two_main	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Tk;
 use Tk::Xrm;
diff -Nru Tk800.023/uninstall Tk800.023.new/uninstall
--- Tk800.023/uninstall	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/uninstall	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 BEGIN {exec('perl5.002',$0,@ARGV)  unless ($] >= 5.002)} 
 use Config;
 use Getopt::Long;
diff -Nru Tk800.023/ventry_demo Tk800.023.new/ventry_demo
--- Tk800.023/ventry_demo	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/ventry_demo	Sat Sep  1 07:16:22 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 use strict;
 use Tk;
 
diff -Nru Tk800.023/xlib_demo Tk800.023.new/xlib_demo
--- Tk800.023/xlib_demo	Sat Dec 30 17:12:37 2000
+++ Tk800.023.new/xlib_demo	Sat Sep  1 07:05:34 2001
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
 use Tk;