home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _f519c37c5a6b97621fa7311e39595afb < prev    next >
Text File  |  2000-03-15  |  817b  |  38 lines
  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');
  35. print end_html;
  36.  
  37.  
  38.