sub SendMail {
#  add debugging
      my $debug = 6;
      if (-e $FORM{'template'}) { }
      else { &Error('Template File Not Found - Error at sendmail subscript'); }

##</code><code>##

   
if ( ! -e $FORM{'template'}) {
     &Error('Template File $FORM{template} Not Found - Error at sendmail subscript'); 
}

      open (FILE, $FORM{'template'});<br>

##</code><code>##

   
      open (FILE, $FORM{'template'}) or die "can't open FILE $FORM{template}: $!";<br>
   
      @File = <FILE>; close (FILE);
      open (MAIL, "|$mailprog -t") || &Error('Unable to Open Sendmail');

##</code><code>##

      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; 

##</code><code>##

  $File =~ s/\[$Field]/$FORM{$Field}/g;  # do you need an 'e' too?
          }        
      print MAIL "$File\n"; }
      close (MAIL);
  }