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

The crlf IO layer converts crlf into \n while reading.