chomp(my @lines = <IN>);
  push @list, @lines;

##</code><code>##

@ARGV = grep { -s } 
    map { defined $ENV{$_} ? "$ENV{$_}/common/wins.ini" : () } 
    qw(TEST_DIR WINS_DIR); 
chomp(my @list = <>);