imagemap.pl

sub get_imagemap{
	local($mapfile, $x, $y) = @_;
	local(@F, $return);

	open(DAT, $mapfile) || die;
	while(<DAT>){
		chop;
		@F = split(/,/);
		($return = $F[4], last)
			if $x >= $F[0]
			&& $y >= $F[1]
			&& $x <= $F[2]
			&& $y <= $F[3];
	}
	close(DAT);
	$return;
}