#my ($key, $value) = split /\s*=\s*/, $line;
       if( $line =~ /^\s*([^=]+)=(.*?)\s*$/ ) {
           my ($key,$value) = ($1,$2);
           $ENV{$key} = $value;
       } else {
           croak "Malformed environment line: '$line'";
       };