open(FILE,'../env.conf') or die "not there";

##</code><code>##

my $content = do {local $/; <FILE>};

##</code><code>##

my %conf = map { /^([^=]+)=(.*)$/; $1 => $2 } split /\n/, $content;

##</code><code>##

my %conf;
while (<FILE>) {
   chomp;
   my ($k,$v) = $_ =~ /^([^=]+)=(.*)$/;
   $conf{$k} = $v if $k;
}