my ($et)=param("et");
   print MAIL "\n$et\n";