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