local $/ = "\r\n";
open(FILE, "environments.txt);
my @temp = <FILE>;
foreach my $line (@temp){
chomp($line);
print $line;
}