diff --git a/Reconciliation.pl b/Reconciliation.pl
index 76f601151c..0ec504beda 100644
--- a/Reconciliation.pl
+++ b/Reconciliation.pl
@@ -1,3 +1,8 @@
 #!/usr/bin/perl
 
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
+
 require "lsmb-request.pl";
diff --git a/account.pl b/account.pl
index 684a9f86e0..1a2db4673b 100755
--- a/account.pl
+++ b/account.pl
@@ -1,5 +1,10 @@
 #!/usr/bin/perl
 
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
+
 require "lsmb-request.pl";
 #!/usr/bin/perl
 
diff --git a/am.pl b/am.pl
index 2e06f6a910..25f49d4343 100755
--- a/am.pl
+++ b/am.pl
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "old-handler.pl";
diff --git a/ap.pl b/ap.pl
index 2e06f6a910..25f49d4343 100755
--- a/ap.pl
+++ b/ap.pl
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "old-handler.pl";
diff --git a/ar.pl b/ar.pl
index 2e06f6a910..25f49d4343 100755
--- a/ar.pl
+++ b/ar.pl
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "old-handler.pl";
diff --git a/bp.pl b/bp.pl
index 2e06f6a910..25f49d4343 100755
--- a/bp.pl
+++ b/bp.pl
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "old-handler.pl";
diff --git a/ca.pl b/ca.pl
index 2e06f6a910..25f49d4343 100755
--- a/ca.pl
+++ b/ca.pl
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "old-handler.pl";
diff --git a/cp.pl b/cp.pl
index 2e06f6a910..25f49d4343 100755
--- a/cp.pl
+++ b/cp.pl
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "old-handler.pl";
diff --git a/employee.pl b/employee.pl
index aaef226d92..56b847b1a1 100755
--- a/employee.pl
+++ b/employee.pl
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "lsmb-request.pl";
diff --git a/gl.pl b/gl.pl
index 2e06f6a910..25f49d4343 100755
--- a/gl.pl
+++ b/gl.pl
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "old-handler.pl";
diff --git a/ic.pl b/ic.pl
index 2e06f6a910..25f49d4343 100755
--- a/ic.pl
+++ b/ic.pl
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "old-handler.pl";
diff --git a/inventory.pl b/inventory.pl
index aaef226d92..56b847b1a1 100755
--- a/inventory.pl
+++ b/inventory.pl
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "lsmb-request.pl";
diff --git a/ir.pl b/ir.pl
index 2e06f6a910..25f49d4343 100755
--- a/ir.pl
+++ b/ir.pl
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "old-handler.pl";
diff --git a/is.pl b/is.pl
index 2e06f6a910..25f49d4343 100755
--- a/is.pl
+++ b/is.pl
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "old-handler.pl";
diff --git a/jc.pl b/jc.pl
index 2e06f6a910..25f49d4343 100755
--- a/jc.pl
+++ b/jc.pl
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "old-handler.pl";
diff --git a/job.pl b/job.pl
index 76f601151c..0ec504beda 100755
--- a/job.pl
+++ b/job.pl
@@ -1,3 +1,8 @@
 #!/usr/bin/perl
 
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
+
 require "lsmb-request.pl";
diff --git a/journal.pl b/journal.pl
index 684a9f86e0..1a2db4673b 100755
--- a/journal.pl
+++ b/journal.pl
@@ -1,5 +1,10 @@
 #!/usr/bin/perl
 
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
+
 require "lsmb-request.pl";
 #!/usr/bin/perl
 
diff --git a/location.pl b/location.pl
index 2e06f6a910..25f49d4343 100755
--- a/location.pl
+++ b/location.pl
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "old-handler.pl";
diff --git a/menu.pl b/menu.pl
index 76f601151c..0ec504beda 100755
--- a/menu.pl
+++ b/menu.pl
@@ -1,3 +1,8 @@
 #!/usr/bin/perl
 
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
+
 require "lsmb-request.pl";
diff --git a/oe.pl b/oe.pl
index 2e06f6a910..25f49d4343 100755
--- a/oe.pl
+++ b/oe.pl
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "old-handler.pl";
diff --git a/payment.pl b/payment.pl
index bb07013e20..0ec504beda 100755
--- a/payment.pl
+++ b/payment.pl
@@ -1,3 +1,8 @@
-#!/usr/bin/perl 
+#!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 
 require "lsmb-request.pl";
diff --git a/pe.pl b/pe.pl
index 2e06f6a910..25f49d4343 100755
--- a/pe.pl
+++ b/pe.pl
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "old-handler.pl";
diff --git a/ps.pl b/ps.pl
index 2e06f6a910..25f49d4343 100755
--- a/ps.pl
+++ b/ps.pl
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "old-handler.pl";
diff --git a/rp.pl b/rp.pl
index 2e06f6a910..25f49d4343 100755
--- a/rp.pl
+++ b/rp.pl
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "old-handler.pl";
diff --git a/taxform.pl b/taxform.pl
index 76f601151c..0ec504beda 100755
--- a/taxform.pl
+++ b/taxform.pl
@@ -1,3 +1,8 @@
 #!/usr/bin/perl
 
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
+
 require "lsmb-request.pl";
diff --git a/user.pl b/user.pl
index 76f601151c..0ec504beda 100755
--- a/user.pl
+++ b/user.pl
@@ -1,3 +1,8 @@
 #!/usr/bin/perl
 
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
+
 require "lsmb-request.pl";
diff --git a/vendor.pl b/vendor.pl
index aaef226d92..56b847b1a1 100755
--- a/vendor.pl
+++ b/vendor.pl
@@ -1,2 +1,7 @@
 #!/usr/bin/perl
+
+use FindBin;
+BEGIN {
+  lib->import($FindBin::Bin) unless $ENV{mod_perl}
+}
 require "lsmb-request.pl";