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