diff --git a/src/interfaces/perl5/examples/ApachePg.pl b/src/interfaces/perl5/examples/ApachePg.pl
index 9bbfad7ad0..c357cfab6a 100644
--- a/src/interfaces/perl5/examples/ApachePg.pl
+++ b/src/interfaces/perl5/examples/ApachePg.pl
@@ -1,6 +1,6 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
-# $Id: ApachePg.pl,v 1.1 2000/06/01 03:05:24 momjian Exp $
+# $Id: ApachePg.pl,v 1.2 2001/09/04 11:41:04 petere Exp $
 
 # demo script, tested with:
 #  - PostgreSQL-6.4
diff --git a/src/interfaces/perl5/examples/example.newstyle b/src/interfaces/perl5/examples/example.newstyle
index 3053840033..e0aaf87f8b 100644
--- a/src/interfaces/perl5/examples/example.newstyle
+++ b/src/interfaces/perl5/examples/example.newstyle
@@ -1,6 +1,6 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
-# $Id: example.newstyle,v 1.1 2000/06/01 03:05:24 momjian Exp $
+# $Id: example.newstyle,v 1.2 2001/09/04 11:41:04 petere Exp $
 
 ######################### globals
 
diff --git a/src/interfaces/perl5/examples/example.oldstyle b/src/interfaces/perl5/examples/example.oldstyle
index 5c63ef8d65..2c85bf37c5 100644
--- a/src/interfaces/perl5/examples/example.oldstyle
+++ b/src/interfaces/perl5/examples/example.oldstyle
@@ -1,6 +1,6 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 
-# $Id: example.oldstyle,v 1.1 2000/06/01 03:05:24 momjian Exp $
+# $Id: example.oldstyle,v 1.2 2001/09/04 11:41:04 petere Exp $
 
 ######################### globals
 
diff --git a/src/interfaces/perl5/test.pl b/src/interfaces/perl5/test.pl
index 9d64336a69..7b31427308 100644
--- a/src/interfaces/perl5/test.pl
+++ b/src/interfaces/perl5/test.pl
@@ -1,6 +1,6 @@
-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
 
-# $Id: test.pl,v 1.13 2000/11/17 00:24:03 tgl Exp $
+# $Id: test.pl,v 1.14 2001/09/04 11:41:04 petere Exp $
 
 # Before `make install' is performed this script should be runnable with
 # `make test'. After `make install' it should work as `perl test.pl'
diff --git a/src/test/performance/runtests.pl b/src/test/performance/runtests.pl
index 419b003328..1d0c53dd28 100755
--- a/src/test/performance/runtests.pl
+++ b/src/test/performance/runtests.pl
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 #
 # Accepts one argument - DBMS name (pgsql, ...) and initializes
 # global variable $TestDBMS with this name.