open (MAIL, "|$mailprog -t") || &Error("Unable to Open $mailprog: $!");
print "<p>trying: $mailprog -t<br>
To: $FORM{mailto}<br>
From: $FORM{req-EMAIL} ($FORM{req-FName} $FORM{req-LName})<br>
Subject: $FORM{subject}<br>\n"
    if $debug > 5;
      print MAIL "To: $FORM{'mailto'}\n";
      print MAIL "From: $FORM{'req-EMail'} ($FORM{'req-FName'} $FORM{'re
  +q-LName'})\n";
      print MAIL "Subject: $FORM{'subject'}\n";
      print MAIL "Bcc: \n\n";
      print MAIL "This information request form is from the Rainforest &
  + Reef Resorts of Belize website.\n";
      print MAIL "*************************************************\n";
  +
      print MAIL "This form was submitted at $time by $FORM{'req-FName'}
  + $FORM{'req-LName'} ($FORM{'req-EMail'}).\n";
      print MAIL "For your records, this is Form Request Number \= $Orde
  +r from this website.\n";
      print MAIL "*************************************************\n\n"
  +;

      foreach $File (@File) {
          $File =~ s/\n//;
          foreach $Field (@InputFields) {
              $ReplaceVar = $FORM{$Field}; 
              $SearchVar = '\[' . $Field . '\]';
              $File =~ s/$SearchVar/$ReplaceVar/g;