If you're doing this as part of a procmail replacement, considier Mail::Audit. It exposes the hooks you will need to save a message body.