use File::Slurp;

foreach $DIR qw(TEST_DIR WINS_DIR) {
    if (defined($ENV{"$DIR"})) {
      $filename = $ENV{"$DIR"} . "/common/wins.ini";
      
      push @list, read_file( $filename )
          if -s $filename;
    }
  }