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

##</code><code>##

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