Select Code to Download

$coordinates .= sprintf $AREA_FORMAT, $xcoord, $ycoord, "$action_file?
+x=$xvalue&y=$yvalue", "Value: [$xvalue, $yvalue]", "Value: [$xvalue, 
+$yvalue]";

$coordinates .= sprintf $AREA_FORMAT, $xcoord, $ycoord, $self->get_act
+ion->($i);

my $AREA_FORMAT  = qq(<area shape=circle coords="%.3f, %.3f, 2" %s>\n)
+;

#!/usr/bin/perl -w
use strict;
...
print "\n\nThe image map:\n\n", $object->image_map(), "\n";

exit 0;

...
<area shape=circle coords="332.432, 269.189, 2" j >
</map>