Select Code to Download

package MIME::Entity::Ray;
use strict;
...
    $body =~ s!\n!\r\n!g;
    return $body
};

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

   local $MIME::Entity::BOUNDARY_DELIMITER = "\r\n";