CGI Perl


            #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

First CGI Form


Name:
Desc: 


Food:
Hamburger
Fish
Steak
Yogurt
 Choose a work place: 

Los Angeles
San Jose
San Francisco
 
 Hawaii
Bali
Maine
Paris

 






First CGI Form


Please enter your name: 


Please enter your phone number: 






#!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 "
$key = $value

"
  if $key eq "QUERY_STRING";
}