use strict;
use warnings;

opendir(DIR, 'C:\AATv2') or die "opendir unsuccessful: $!";
my @files = readdir(DIR);
closedir(DIR);

open(OUT, ">", "environments.txt") or die "open unsuccessful: $!";

foreach my $f (@files) {
    print OUT "$f\n";
}
close(OUT);