#!/usr/bin/perl #file: frames.pl use CGI qw/:standard/; print header, start_html('Popup Window'); if (!param) { print h1("Ask your Question"), start_form(-target=>'answer'), "What's your name? ",textfield('name'), p(), "What's the combination?", checkbox_group(-name=>'words', -values=>['eenie','meenie','minie','moe'], -defaults=>['eenie','moe']), p(), "What's your favorite color? ", popup_menu(-name=>'color', -values=>['red','green','blue','chartreuse']), p(), submit, end_form; } else { print h1("And the Answer is..."), "Your name is ",em(param(name)), p(), "The keywords are: ", em(join(", ",param('words'))), p(), "Your favorite color is ",em(param('color')); } print end_html;