use Data::Dumper; 
 print MAIL "=== Check Form: \n",
      Dumper \%FORM, 
      "\n=== end check\n" ;