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

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