Mega Code Archive

 

Categories / Perl / CGI

 

Create Image map

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