Algorithm-bayesian-perl is a project mainly written in Perl, it's free.

Bayesian Spam Filtering Algorithm