use CGI; 
  
$q = new CGI; 
  
$UserInput = $q ->('formfieldname'); 
open(FH ">textfile.txt"); 
print FH $UserInput; 
close(FH); 
  
print "Content-Type: text/html\n\n"; 
print "<table><tr><td>$UserInput</td></tr></table>";