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