Nifty Perl Hack

I threw together a tiny bit of code with the example code from Net::IMAP::Simple to make a program that watches for Mailman unsubscribe messages, logs them, then deletes the message.  It was a 5 minute job (except for the part where my iteration was off by one and kept deleting the wrong message).  Perl is so handy for things like this.