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);