open (INFILE,$post)
  or die "**| Couldn't open file general: $post";
  while (<INFILE>) {
      @words = split;
  }
  close (INFILE);
  $L=($words[2]+$words[5]);
  $D=($words[1]+$words[4]);
  $M=($words[3]+$words[6]);