The code is written in Perl, and Redis is used for storage.

Code: https://github.com/skx/gathering/

Demo site:

http://spam-box.co.uk/