foreach $DIR qw(TEST_DIR WINS_DIR) {
    if (defined($ENV{"$DIR"})) {
      $filename = $ENV{"$DIR"} . "/common/wins.ini";
      if (-s $filename) {
        open (IN,$filename);
        push(@list,<IN>);
        chomp($list[$#list]);
        close(IN);
      }
    }
  }