Help for this page

Select Code to Download

Select or download this

open(MAIL,"|$mailprog -t"); 
.
.
print MAIL $q->param('WHATEVER'),"\n";

Select or download this

open (LOGFILE,">>$logfile") || die "NFG $logfile!\n";
.
.
.
print LOGFILE $q->param('WHATEVER')."\n";