diff --git a/usr/local/share/perl5/MIME/Entity.pm
b/usr/local/share/perl5/MIME/Entity.pm
index 3006853..ddfeb6c 100644
--- a/usr/local/share/perl5/MIME/Entity.pm
+++ b/usr/local/share/perl5/MIME/Entity.pm
@@ -1828,9 +1828,9 @@ sub print_body {
        ### Parts:
        my $part;
        foreach $part ($self->parts) {
-           $out->print("--$boundary\n");
+           $out->print("--$boundary\r\n");
            $part->print($out);
-           $out->print("\n");           ### needed for next delim/close
+           $out->print("\r\n");           ### needed for next delim/close
        }
        $out->print("--$boundary--\n");