1#!perl -w
2
3$b = "lib\\win\\srctmp";
4$a = $ENV{LIB};
5if (! ($a =~ /$b/) ) {
6    print "$b Not in LIB!\n";
7    system("del a.tmp");
8    }
9else {print "$b in LIB.\n";}
10exit(0);