print $fh <<EOM;
#!/usr/bin/perl -T
use strict; use warnings;
-use local::lib '$dir1';
-warn 'using lib dir $dir1', "\\n";
-if (grep { m{^\\Q$dir1\\E/} } \@INC) {
+use local::lib ();
+my \$dir = "\Q$dir1\E";
+local::lib->import(\$dir);
+warn "using lib dir \$dir\\n";
+if (grep { m{^\\Q\$dir} } \@INC) {
exit 0;
}
warn '\@INC is: ', join("\\n", \@INC), "\\n";