open my $file, '<:crlf', 'environments.txt' or die $!;
while (@temp) {
    chomp;
    print;
}