/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/internal_links.cgi (1019B)

#!/usr/local/bin/perl

use CGI;
$query = new CGI;

# We generate a regular HTML file containing a very long list
# and a popup menu that does nothing except to show that we
# don't lose the state information.
print $query->header;
print $query->start_html("Internal Links Example");
print "<H1>Internal Links Example</H1>\n";
print "Click <cite>Submit Query</cite> to create a state.  Then scroll down and",
    " click on any of the <cite>Jump to top</cite> links.  This is not very exciting.";

print "<A NAME=\"start\"></A>\n"; # an anchor point at the top

# pick a default starting value;
$query->param('amenu','FOO1') unless $query->param('amenu');

print $query->start_form;
print $query->popup_menu('amenu',[('FOO1'..'FOO9')]);
print $query->submit,$query->endform;

# We create a long boring list for the purposes of illustration.
$myself = $query->self_url;
print "<OL>\n";
for (1..100) {
    print qq{<LI>List item #$_ <A HREF="$myself#start">Jump to top</A>\n};
}
print "</OL>\n";

print $query->end_html;

#!/usr/local/bin/perl use CGI; $query = new CGI; # We generate a regular HTML file containing a very long list # and a popup menu that does nothing except to show that we # don't lose the state information. print $query->header; print $query->start_html("Internal Links Example"); print "

Internal Links Example

\n"; print "Click Submit Query to create a state. Then scroll down and", " click on any of the Jump to top links. This is not very exciting."; print "\n"; # an anchor point at the top # pick a default starting value; $query->param('amenu','FOO1') unless $query->param('amenu'); print $query->start_form; print $query->popup_menu('amenu',[('FOO1'..'FOO9')]); print $query->submit,$query->endform; # We create a long boring list for the purposes of illustration. $myself = $query->self_url; print "

List item #$_ Jump to top\n}; } print "

\n"; print $query->end_html;