Hey -- thanks for this!
I hacked up a copy for a co-worker to work with modern Mail::SpamAssassin, require less non-core CPAN modules, track its state by adding a custom header to the processed messages, and generally do less stuff I wouldn't need:
http://taint.org/x/2009/reassassinate