my %config = ();
unless (open (FH, $filename)) {
  die "Error: couldn't read from '$filename': $! ";
} # unless
else {
  while (<FH>) {
    my ($key, $value) = split(/\s*=\s*/, $_, 2);

    # da darf $key nicht doppelt vorkommen
    # weil sonst der alte key ueberschrieben wird 
    $config{$key} = $value; 
  } # while

  close (FH);
} # else