Index: rt-5.0.1/sbin/rt-attributes-viewer.in
===================================================================
--- rt-5.0.1.orig/sbin/rt-attributes-viewer.in
+++ rt-5.0.1/sbin/rt-attributes-viewer.in
@@ -48,7 +48,7 @@
 # END BPS TAGGED BLOCK }}}
 use strict;
 use warnings;
-
+use lib '__vendorperl__';
 # fix lib paths, some may be relative
 BEGIN { # BEGIN RT CMD BOILERPLATE
     require File::Spec;
Index: rt-5.0.1/sbin/rt-clean-sessions.in
===================================================================
--- rt-5.0.1.orig/sbin/rt-clean-sessions.in
+++ rt-5.0.1/sbin/rt-clean-sessions.in
@@ -48,7 +48,7 @@
 # END BPS TAGGED BLOCK }}}
 use strict;
 use warnings;
-
+use lib '__vendorperl__';
 # fix lib paths, some may be relative
 BEGIN { # BEGIN RT CMD BOILERPLATE
     require File::Spec;
Index: rt-5.0.1/sbin/rt-dump-metadata.in
===================================================================
--- rt-5.0.1.orig/sbin/rt-dump-metadata.in
+++ rt-5.0.1/sbin/rt-dump-metadata.in
@@ -48,7 +48,7 @@
 # END BPS TAGGED BLOCK }}}
 use strict;
 use warnings;
-
+use lib '__vendorperl__';
 # As we specify that XML is UTF-8 and we output it to STDOUT, we must be sure
 # it is UTF-8 so further XMLin will not break
 binmode( STDOUT, ":utf8" );
Index: rt-5.0.1/sbin/rt-email-dashboards.in
===================================================================
--- rt-5.0.1.orig/sbin/rt-email-dashboards.in
+++ rt-5.0.1/sbin/rt-email-dashboards.in
@@ -48,7 +48,7 @@
 # END BPS TAGGED BLOCK }}}
 use strict;
 use warnings;
-
+use lib '__vendorperl__';
 # fix lib paths, some may be relative
 BEGIN { # BEGIN RT CMD BOILERPLATE
     require File::Spec;
Index: rt-5.0.1/sbin/rt-email-digest.in
===================================================================
--- rt-5.0.1.orig/sbin/rt-email-digest.in
+++ rt-5.0.1/sbin/rt-email-digest.in
@@ -48,6 +48,7 @@
 # END BPS TAGGED BLOCK }}}
 use warnings;
 use strict;
+use lib '__vendorperl__';
 
 BEGIN { # BEGIN RT CMD BOILERPLATE
     require File::Spec;
Index: rt-5.0.1/sbin/rt-email-group-admin.in
===================================================================
--- rt-5.0.1.orig/sbin/rt-email-group-admin.in
+++ rt-5.0.1/sbin/rt-email-group-admin.in
@@ -85,7 +85,7 @@ Your development team will be notified o
 
 use warnings;
 use strict;
-
+use lib '__vendorperl__';
 # fix lib paths, some may be relative
 BEGIN { # BEGIN RT CMD BOILERPLATE
     require File::Spec;
Index: rt-5.0.1/sbin/rt-fulltext-indexer.in
===================================================================
--- rt-5.0.1.orig/sbin/rt-fulltext-indexer.in
+++ rt-5.0.1/sbin/rt-fulltext-indexer.in
@@ -49,7 +49,7 @@
 use strict;
 use warnings;
 use 5.010;
-
+use lib '__vendorperl__';
 # fix lib paths, some may be relative
 BEGIN { # BEGIN RT CMD BOILERPLATE
     require File::Spec;
Index: rt-5.0.1/sbin/rt-importer.in
===================================================================
--- rt-5.0.1.orig/sbin/rt-importer.in
+++ rt-5.0.1/sbin/rt-importer.in
@@ -48,7 +48,7 @@
 # END BPS TAGGED BLOCK }}}
 use strict;
 use warnings;
-
+use lib '__vendorperl__';
 # fix lib paths, some may be relative
 BEGIN {
     require File::Spec;
Index: rt-5.0.1/sbin/rt-preferences-viewer.in
===================================================================
--- rt-5.0.1.orig/sbin/rt-preferences-viewer.in
+++ rt-5.0.1/sbin/rt-preferences-viewer.in
@@ -48,7 +48,7 @@
 # END BPS TAGGED BLOCK }}}
 use strict;
 use warnings;
-
+use lib '__vendorperl__';
 # fix lib paths, some may be relative
 BEGIN { # BEGIN RT CMD BOILERPLATE
     require File::Spec;
Index: rt-5.0.1/sbin/rt-serializer.in
===================================================================
--- rt-5.0.1.orig/sbin/rt-serializer.in
+++ rt-5.0.1/sbin/rt-serializer.in
@@ -48,7 +48,7 @@
 # END BPS TAGGED BLOCK }}}
 use strict;
 use warnings;
-
+use lib '__vendorperl__';
 # fix lib paths, some may be relative
 BEGIN {
     require File::Spec;
Index: rt-5.0.1/sbin/rt-server.in
===================================================================
--- rt-5.0.1.orig/sbin/rt-server.in
+++ rt-5.0.1/sbin/rt-server.in
@@ -48,7 +48,7 @@
 # END BPS TAGGED BLOCK }}}
 use warnings;
 use strict;
-
+use lib '__vendorperl__';
 BEGIN {
     die <<EOT if ${^TAINT};
 RT does not run under Perl's "taint mode".  Remove -T from the command
Index: rt-5.0.1/sbin/rt-session-viewer.in
===================================================================
--- rt-5.0.1.orig/sbin/rt-session-viewer.in
+++ rt-5.0.1/sbin/rt-session-viewer.in
@@ -48,7 +48,7 @@
 # END BPS TAGGED BLOCK }}}
 use strict;
 use warnings;
-
+use lib '__vendorperl__';
 # fix lib paths, some may be relative
 BEGIN { # BEGIN RT CMD BOILERPLATE
     require File::Spec;
Index: rt-5.0.1/sbin/rt-setup-database.in
===================================================================
--- rt-5.0.1.orig/sbin/rt-setup-database.in
+++ rt-5.0.1/sbin/rt-setup-database.in
@@ -48,6 +48,7 @@
 # END BPS TAGGED BLOCK }}}
 use strict;
 use warnings;
+use lib '__vendorperl__';
 use 5.010;
 
 use vars qw($Nobody $SystemUser $item);
Index: rt-5.0.1/sbin/rt-shredder.in
===================================================================
--- rt-5.0.1.orig/sbin/rt-shredder.in
+++ rt-5.0.1/sbin/rt-shredder.in
@@ -109,7 +109,7 @@ L<RT::Shredder>
 
 use strict;
 use warnings FATAL => 'all';
-
+use lib '__vendorperl__';
 # fix lib paths, some may be relative
 BEGIN { # BEGIN RT CMD BOILERPLATE
     require File::Spec;
Index: rt-5.0.1/sbin/rt-validate-aliases.in
===================================================================
--- rt-5.0.1.orig/sbin/rt-validate-aliases.in
+++ rt-5.0.1/sbin/rt-validate-aliases.in
@@ -48,6 +48,7 @@
 # END BPS TAGGED BLOCK }}}
 use strict;
 use warnings;
+use lib '__vendorperl__';
 use Text::ParseWords qw//;
 use Getopt::Long;
 
Index: rt-5.0.1/sbin/rt-validator.in
===================================================================
--- rt-5.0.1.orig/sbin/rt-validator.in
+++ rt-5.0.1/sbin/rt-validator.in
@@ -48,7 +48,7 @@
 # END BPS TAGGED BLOCK }}}
 use strict;
 use warnings;
-
+use lib '__vendorperl__';
 # fix lib paths, some may be relative
 BEGIN { # BEGIN RT CMD BOILERPLATE
     require File::Spec;
Index: rt-5.0.1/sbin/rt-externalize-attachments.in
===================================================================
--- rt-5.0.1.orig/sbin/rt-externalize-attachments.in
+++ rt-5.0.1/sbin/rt-externalize-attachments.in
@@ -48,6 +48,7 @@
 # END BPS TAGGED BLOCK }}}
 use strict;
 use warnings;
+use lib '__vendorperl__';
 use POSIX qw(strftime);
 
 # fix lib paths, some may be relative
Index: rt-5.0.1/sbin/rt-ldapimport.in
===================================================================
--- rt-5.0.1.orig/sbin/rt-ldapimport.in
+++ rt-5.0.1/sbin/rt-ldapimport.in
@@ -48,7 +48,7 @@
 # END BPS TAGGED BLOCK }}}
 use strict;
 use warnings;
-
+use lib '__vendorperl__';
 # fix lib paths, some may be relative
 BEGIN { # BEGIN RT CMD BOILERPLATE
     require File::Spec;
Index: rt-5.0.1/sbin/rt-munge-attachments.in
===================================================================
--- rt-5.0.1.orig/sbin/rt-munge-attachments.in
+++ rt-5.0.1/sbin/rt-munge-attachments.in
@@ -48,7 +48,7 @@
 # END BPS TAGGED BLOCK }}}
 use strict;
 use warnings;
-
+use lib '__vendorperl__';
 # fix lib paths, some may be relative
 BEGIN {    # BEGIN RT CMD BOILERPLATE
     require File::Spec;
Index: rt-5.0.1/sbin/rt-passwd.in
===================================================================
--- rt-5.0.1.orig/sbin/rt-passwd.in
+++ rt-5.0.1/sbin/rt-passwd.in
@@ -48,6 +48,7 @@
 # END BPS TAGGED BLOCK }}}
 use strict;
 use warnings;
+use lib '__vendorperl__';
 use utf8;
 
 # fix lib paths, some may be relative
Index: rt-5.0.1/sbin/rt-search-attributes.in
===================================================================
--- rt-5.0.1.orig/sbin/rt-search-attributes.in
+++ rt-5.0.1/sbin/rt-search-attributes.in
@@ -48,7 +48,7 @@
 # END BPS TAGGED BLOCK }}}
 use strict;
 use warnings;
-
+use lib '__vendorperl__';
 # fix lib paths, some may be relative
 BEGIN { # BEGIN RT CMD BOILERPLATE
     require File::Spec;
Index: rt-5.0.1/sbin/rt-dump-initialdata.in
===================================================================
--- rt-5.0.1.orig/sbin/rt-dump-initialdata.in
+++ rt-5.0.1/sbin/rt-dump-initialdata.in
@@ -48,7 +48,7 @@
 # END BPS TAGGED BLOCK }}}
 use strict;
 use warnings;
-
+use lib '__vendorperl__';
 # fix lib paths, some may be relative
 BEGIN {
     require File::Spec;
Index: rt-5.0.1/bin/rt-crontool.in
===================================================================
--- rt-5.0.1.orig/bin/rt-crontool.in
+++ rt-5.0.1/bin/rt-crontool.in
@@ -48,6 +48,7 @@
 # END BPS TAGGED BLOCK }}}
 use strict;
 use warnings;
+use lib '__vendorperl__';
 use Carp;
 
 # fix lib paths, some may be relative
Index: rt-5.0.1/bin/rt-mailgate.in
===================================================================
--- rt-5.0.1.orig/bin/rt-mailgate.in
+++ rt-5.0.1/bin/rt-mailgate.in
@@ -54,7 +54,7 @@ rt-mailgate - Mail interface to RT.
 
 use strict;
 use warnings;
-
+use lib '__vendorperl__';
 use Getopt::Long;
 
 my $opts = { };
Index: rt-5.0.1/bin/rt.in
===================================================================
--- rt-5.0.1.orig/bin/rt.in
+++ rt-5.0.1/bin/rt.in
@@ -51,7 +51,7 @@
 
 use strict;
 use warnings;
-
+use lib '__vendorperl__';
 if ( $ARGV[0] && $ARGV[0] =~ /^(?:--help|-h)$/ ) {
     require Pod::Usage;
     print Pod::Usage::pod2usage( { verbose => 2 } );