setlib.pl   [plain text]

#!perl -w

$b = "lib\\win\\srctmp";
$a = $ENV{LIB};
if (! ($a =~ /$b/) ) {
    print "$b Not in LIB!\n";
    system("del a.tmp");
    }
else {print "$b in LIB.\n";}
exit(0);