Bayespam is a qmail spam filter written in Perl, using Bayesian classification to filter out unsolicited commercial email. Bayespam actually learns as you give it more spam to process, so it should become better and better the longer you use it.