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