while(my ($key,$value) = each %FORM){
   print MAIL "$key\: $value\n";
 }