1N/A#!/usr/local/bin/perl
1N/A
1N/Ause CGI;
1N/A$query = new CGI;
1N/Aprint $query->header;
1N/Aprint $query->start_html("A Clickable Image");
1N/Aprint <<END;
1N/A<H1>A Clickable Image</H1>
1N/A</A>
1N/AEND
1N/Aprint "Sorry, this isn't very exciting!\n";
1N/A
1N/Aprint $query->start_form;
1N/Aprint $query->image_button('picture',"./wilogo.gif");
1N/Aprint "Give me a: ",$query->popup_menu('letter',['A','B','C','D','E','W']),"\n"; #
1N/Aprint "<P>Magnification: ",$query->radio_group('magnification',['1X','2X','4X','20X']),"\n";
1N/Aprint "<HR>\n";
1N/A
1N/Aif ($query->param) {
1N/A print "<P>Magnification, <EM>",$query->param('magnification'),"</EM>\n";
1N/A print "<P>Selected Letter, <EM>",$query->param('letter'),"</EM>\n";
1N/A ($x,$y) = ($query->param('picture.x'),$query->param('picture.y'));
1N/A print "<P>Selected Position <EM>($x,$y)</EM>\n";
1N/A}
1N/A
1N/Aprint $query->end_html;