So I decided to do something about it. Now I have my funky Mail::Audit script running I figured that I should get it to take some drastic action when I actually get mail sent directly to me (rather than just via the millions of email lists I seem to be on.) Since I spend quite a lot of time hanging out on IRC I figured it'd be a good idea to have it
In a spare hour recently I'd written a couple of bots in POE...one that simply reversed whatever you said to it, the other that looked up the titles of web pages (in a non-blocking way of course - this is POE.) Adapting my code from this I hacked in a quick SocketFactory that listens on a socket and simply
Perl is so great for rapid development of simple things.