*MIME::Lite::send = sub {  ... your code here ....}