[VallonTallonZek]

I wrote a function that returns a random client in a radius around another client, but it would need to be added to the Perl interface to solve your problem. If someone wants to make them accessible to Perl I can post it here when I get home.