Listing 3

#!/usr/local/bin/perl 
 
print <<EOF 
<HTML> 
<HEAD> 
<TITLE>Form test</TITLE> 
</HEAD> 
<BODY> 
<H1>We will test submitting a form to our WWW GUI server</H1> 
<br> 
<hr> 
<br> 
<form method="POST" action="test-a-form"> 
<input type="hidden" name="to" value="arthur"> 
<input type="hidden" name="subject" value="Test remarks"> 
<input type="hidden" name="nextpage" value="/english/remsent.html"> 
<PRE> 
Name       <input type="text" name="naam" size=60> 
Company    <input type="text" name="bedrijf" size=60> 
Phone      <input type="text" name="telefoon" size=20>       Fax        <input type="text" 
name="fax" size=20> 
E-Mail     <input type="text" name="mail" size=60> 
</PRE> 
<br> 
Your question / remark : 
<br> 
<textarea name="remarks" rows=4 cols=64></textarea><br> 
<BR> 
<PRE><input type="submit" value="Ok, send it"> <input type="reset" value="No, 
sorry"</PRE> 
</form> 
<br> 
<hr> 
<br> 
</BODY> 
</HTML> 
EOF 
;
