Help for this page
my $idx = $w->GetNearst($e->x, $e->y);<br><br>
my $idx = $w-><b>GetNearest</b>($e->x, $e->y);