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