Create a ModuleDirs file & adjust template scripts to use it

src/template/top/caPerlApp/Makefile

@@ -4,6 +4,8 @@ include $(TOP)/configure/CONFIG
 #----------------------------------------
 #  ADD MACRO DEFINITIONS AFTER THIS LINE
 
+PERL_SCRIPTS += _APPNAME_ModuleDirs.pm
+
 PERL_SCRIPTS += cainfo.pl
 PERL_SCRIPTS += caput.pl
 PERL_SCRIPTS += caget.pl

src/template/top/caPerlApp/caget.pl

@@ -2,8 +2,11 @@
 
 use strict;
 
+# This construct sets @INC to search lib/perl of all RELEASE entries
 use FindBin qw($Bin);
-use lib "$Bin/../../lib/perl";
+use lib ($Bin, "$Bin/../../lib/perl");
+use _APPNAME_ModuleDirs;
+no lib $Bin;
 
 use Getopt::Std;
 use Scalar::Util qw(looks_like_number);

src/template/top/caPerlApp/cainfo.pl

@@ -2,8 +2,11 @@
 
 use strict;
 
+# This construct sets @INC to search lib/perl of all RELEASE entries
 use FindBin qw($Bin);
-use lib "$Bin/../../lib/perl";
+use lib ($Bin, "$Bin/../../lib/perl");
+use _APPNAME_ModuleDirs;
+no lib $Bin;
 
 use Getopt::Std;
 use CA;

src/template/top/caPerlApp/camonitor.pl

@@ -2,8 +2,11 @@
 
 use strict;
 
+# This construct sets @INC to search lib/perl of all RELEASE entries
 use FindBin qw($Bin);
-use lib "$Bin/../../lib/perl";
+use lib ($Bin, "$Bin/../../lib/perl");
+use _APPNAME_ModuleDirs;
+no lib $Bin;
 
 use Getopt::Std;
 use Scalar::Util qw(looks_like_number);

src/template/top/caPerlApp/caput.pl

@@ -2,8 +2,11 @@
 
 use strict;
 
+# This construct sets @INC to search lib/perl of all RELEASE entries
 use FindBin qw($Bin);
-use lib "$Bin/../../lib/perl";
+use lib ($Bin, "$Bin/../../lib/perl");
+use _APPNAME_ModuleDirs;
+no lib $Bin;
 
 use Getopt::Std;
 use CA;