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