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

##</code><code>##

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