Take a look at Mail::Audit. There's a good article about it in The Perl Journal.

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg