/usr/share/perl5/CGI/examples

Name	Size	Mode	Actions
WORLD_WRITABLE/	-	0755	rm
caution.xbm	741	0644	edit dl rm
clickable_image.cgi	808	0644	edit dl rm
cookie.cgi	2263	0644	edit dl rm
crash.cgi	131	0644	edit dl rm
customize.cgi	2454	0644	edit dl rm
diff_upload.cgi	1595	0644	edit dl rm
file_upload.cgi	1998	0644	edit dl rm
frameset.cgi	2076	0644	edit dl rm
index.html	3487	0644	edit dl rm
internal_links.cgi	1019	0644	edit dl rm
javascript.cgi	3049	0644	edit dl rm
make_links.pl	196	0644	edit dl rm
monty.cgi	2086	0644	edit dl rm
multiple_forms.cgi	1599	0644	edit dl rm
nph-clock.cgi	359	0644	edit dl rm
nph-multipart.cgi	263	0644	edit dl rm
popup.cgi	1024	0644	edit dl rm
save_state.cgi	2311	0644	edit dl rm
tryit.cgi	780	0644	edit dl rm

Edit: /usr/share/perl5/CGI/examples/popup.cgi (1024B)

#!/usr/local/bin/perl

use CGI;
$query = new CGI;
print $query->header;
print $query->start_html('Popup Window');

if (!$query->param) {
    print "<H1>Ask your Question</H1>\n";
    print $query->start_form(-target=>'_new');
    print "What's your name? ",$query->textfield('name');
    print "<P>What's the combination?<P>",
    $query->checkbox_group(-name=>'words',
			   -values=>['eenie','meenie','minie','moe'],
			   -defaults=>['eenie','moe']);

print "<P>What's your favorite color? ",
    $query->popup_menu(-name=>'color',
		       -values=>['red','green','blue','chartreuse']),
    "<P>";
    print $query->submit;
    print $query->endform;

} else {
    print "<H1>And the Answer is...</H1>\n";
    print "Your name is <EM>",$query->param(name),"</EM>\n";
    print "<P>The keywords are: <EM>",join(", ",$query->param(words)),"</EM>\n";
    print "<P>Your favorite color is <EM>",$query->param(color),"</EM>\n";
}
print qq{<P><A HREF="cgi_docs.html">Go to the documentation</A>};
print $query->end_html;

#!/usr/local/bin/perl use CGI; $query = new CGI; print $query->header; print $query->start_html('Popup Window'); if (!$query->param) { print "

Ask your Question

\n"; print $query->start_form(-target=>'_new'); print "What's your name? ",$query->textfield('name'); print "

What's the combination?

", $query->checkbox_group(-name=>'words', -values=>['eenie','meenie','minie','moe'], -defaults=>['eenie','moe']); print "

What's your favorite color? ", $query->popup_menu(-name=>'color', -values=>['red','green','blue','chartreuse']), "

"; print $query->submit; print $query->endform; } else { print "

And the Answer is...

\n"; print "Your name is ",$query->param(name),"\n"; print "

The keywords are: ",join(", ",$query->param(words)),"\n"; print "

Your favorite color is ",$query->param(color),"\n"; } print qq{

Go to the documentation}; print $query->end_html;