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