sub SendMail {
if (-e $FORM{'template'}) { }
else { &Error('Template File Not Found - Error at sendmail subscript'); }
open (FILE, $FORM{'template'});
@File = <FILE>; close (FILE);
open (MAIL, "|$mailprog -t") || &Error('Unable to Open Sendmail');
.
.
.
}