Code 

• I wired the whole lot together with some other bits from around the office

• Wellington Perl Mongers
• 10 March 2009