open  MAIL,'|mail $mail' || die "mail problem : $!";
      print MAIL "$user changed the menu $words.\n";
      close MAIL;