view release on metacpan or  search on metacpan

examples/cgi-bin/CGI_pm_clickable_image.pl  view on Meta::CPAN

#!/usr/local/bin/perl

use CGI;
$query = new CGI;
print $query->header;
print $query->start_html("A Clickable Image");
print <<END;
<H1>A Clickable Image</H1>
</A>
END
print "Sorry, this isn't very exciting!\n";

print $query->start_form;
print $query->image_button('picture', "CGI_pm/wilogo.gif");
print "Give me a: ",
  $query->popup_menu('letter', ['A', 'B', 'C', 'D', 'E', 'W']), "\n";    #
print "<P>Magnification: ",
  $query->radio_group('magnification', ['1X', '2X', '4X', '20X']), "\n";
print "<HR>\n";

if ($query->param) {
    print "<P>Magnification, <EM>", $query->param('magnification'), "</EM>\n";
    print "<P>Selected Letter, <EM>", $query->param('letter'), "</EM>\n";
    ($x, $y) = ($query->param('picture.x'), $query->param('picture.y'));
    print "<P>Selected Position <EM>($x,$y)</EM>\n";
}

print $query->end_html;