perl_newbie411,
You might want to have a look at Mail::Audit. I have never used it for its intended purpose, but it is all that and a bag of chips. See Advice for email munging for more details.