my $old_stringify_body = \&MIME::Entity::stringify_body;

*MIME::Entity::stringify_body = sub {
    my( $self ) = @_;
    my $body = &$old_stringify_body;
    $body =~ s!\n!\r\n!g;
    return $body
};