my $log = "$cell".".$$"."/si.log";
  my $pwd = cwd();
  my $netlist = "$pwd"."/"."$cell".".$$"."/"."$cell".".cdl";
  
  my ($error, $done) = 0; 
  print "  Checking log files for success on $netlist\n";

  while (( ! $error ) and ( ! -f $netlist)) {
    open ( LOG, $log ) || warn "  Couldn't open log\n" if ($debug);
    if ( defined (fileno LOG )) { 
      print "Defined \n";
      while (<LOG> ){
        print "$_";
        if ( ($_ =~ m/error/i) or ($_ =~ m/warning/i) ){
          print "$_" ;
          print "$_" if ($debug) ;                
          if ($_ =~ m/error/i) {
            $error = 1;
            print "$_";
            $icfb->hard_close();
          }
        }
      }
      close LOG;
    } else { print "Not Defined\n"; } 
    sleep 2;
  }