Select Code to Download

use MIME::Entity;
my $old_stringify_body = \&MIME::Entity::stringify_body;
...
    $body =~ s!\n!\r\n!g;
    return $body
};