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