Commit | Line | Data |
54310121 |
1 | #!/usr/local/bin/perl |
2 | |
3 | use CGI ':standard'; |
4 | |
5 | print header; |
6 | print start_html('A Simple Example'), |
7 | h1('A Simple Example'), |
8 | start_form, |
9 | "What's your name? ",textfield('name'), |
10 | p, |
11 | "What's the combination?", |
12 | p, |
13 | checkbox_group(-name=>'words', |
14 | -values=>['eenie','meenie','minie','moe'], |
15 | -defaults=>['eenie','minie']), |
16 | p, |
17 | "What's your favorite color? ", |
18 | popup_menu(-name=>'color', |
19 | -values=>['red','green','blue','chartreuse']), |
20 | p, |
21 | submit, |
22 | end_form, |
23 | hr; |
24 | |
25 | if (param()) { |
26 | print |
27 | "Your name is: ",em(param('name')), |
28 | p, |
29 | "The keywords are: ",em(join(", ",param('words'))), |
30 | p, |
31 | "Your favorite color is: ",em(param('color')), |
32 | hr; |
33 | } |
34 | print a({href=>'../cgi_docs.html'},'Go to the documentation'); |
12c5d27a |
35 | print end_html; |
36 | |
54310121 |
37 | |