|
#!/usr/local/bin/perl
use CGI;
$co = new CGI;
print $co->header,
$co->start_html('Image Map Example'),
$co->h1('Image Map Example'),
$co->start_form,
$co->image_button
(
-name => 'map',
-src=>'map.gif'
),
$co->p,
$co->end_form,
$co->hr;
if ($co->param())
{
$x = $co->param('map.x');
$y = $co->param('map.y');
print "You clicked the map at ($x, $y)";
}
print $co->end_html;
|