#Input Type         Attributes        
#CHECKBOX           NAME, VALUE  
#FILE               NAME
#HIDDEN             NAME, VALUE
#IMAGE              SRC, VALUE, ALIGN
#PASSWORD           NAME, VALUE
#RADIO              NAME, VALUE
#RESET              NAME, VALUE
#SELECT             NAME, OPTION SIZE, MULTIPLE
#SUBMIT             NAME, VALUE
#TEXT               NAME SIZE, MAXLENGTH
#TEXTAREA           NAME, SIZE ROWS, COLS


<html><head>
<title>First CGI Form</title></head>
<body>
<form action="index.pl" >
Name:<input type="text" name="namestring">
Desc: <br>
<textarea name="comments"></textarea>
Food:
<input type="radio" name="choice" value="burger"/>Hamburger
<input type="radio" name="choice" value="fish"/>Fish
<input type="radio" name="choice" value="steak"/>Steak
<input type="radio" name="choice" value="yogurt"/>Yogurt
</p> <b>Choose a work place:</b> <br>
<input type="checkbox" name="place" value="la"/>Los Angeles
<input type="checkbox" name="place" value="sj"/>San Jose
<input type="checkbox" name="place" value="sf" checked/>San Francisco
<select name="location"> 
<option selected value="hawaii"/> Hawaii
<option value="bali"/>Bali
<option value="maine"/>Maine
<option value="paris"/>Paris
</select>
 <p>
<input type="submit" value="submit">
<input type="reset" value="clear">
</body>
</form>
</html>

<html>
<head><title>First CGI Form</title></head>
<body>
<form action="form1.cgi" method=get>
Please enter your name: <br>
<input type="text" size=50 name="Name">
Please enter your phone number: <br>
<input type="text" size=30 name="Phone">
<input type=submit>
<input type=reset value="Clear">
</form>
</body>


#!c:/ActivePerl/bin/perl.exe
print "Content-type: text/html\n\n";
print "Processing CGI form :\n\n";
# Print out only the QUERY_STRING environment variable
while(($key, $value)=each(%ENV)){
  print "<h3>$key = <em>$value</em></h3><br>"
  if $key eq "QUERY_STRING";
}