A lot depends on exactly what your architecture is, but you could probably do something using Simon Cozen's Mail::Audit module.

Perl Training in the UK <http://www.iterative-software.com>