#!/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->start_form; 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;