$path = "/main/lvs/";<br />
open(CELLFILE,"./instList.in") || die "Can't open cell list file: $!";<br />
while (<CELLFILE>) {<br /> 
$cell = $_;<br />
 chomp($cell);<br />
 system("rm ./instLvsOut/passfail.tmp");<br />
 open(PASSFAIL,">>./instLvsOut/passfail.tmp");<br />
 system("ls $path | grep $cell.>./instLvsOut/passfail.tmp");<br />
 print "$cell:\n";<br />
 @fp0 =<PASSFAIL>;<br />
 $fp = $fp0[0];<br />
 chomp($fp);<br />
 system("cat ./instLvsOut/passfail.tmp");<br />
 print "fp is $fp\n";<br />
 }