SOAP-Lite-0.60/Makefile.PL:

  ["MIME interoperability w/ Axis","SOAP::Lite",{"MIME::Parser" => "6.106"},0],

SOAP-Lite-0.60/lib/SOAP/Lite.pm:

# removed requirement for MIME::Parser 6.106
# even though it fixes interoperability problem with Axis, this version
# is still marked as "experimantal" on CPAN and is not available for
# auto-install (as of 08/08/03) --PK
#  Exporter::require_version('MIME::Parser' => 6.106);

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

--- MIME-tools-5.417/lib/MIME/Entity.pm-	2005-01-13 19:23:15 +0000
+++ MIME-tools-5.417/lib/MIME/Entity.pm	2005-05-12 13:26:59 +0000
@@ -214,6 +214,27 @@ Debug:
 
 =head1 PUBLIC INTERFACE
 
+
+=head2 Globals
+
+=over 4
+
+=item $BOUNDARY_DELIMITER
+
+This is the end-of-line sequence output at the end of a
+multipart boundary when you're printing a MIME::Entity.
+It defaults to "\n".
+I strongly suggest that you local'ize your overrides if possible:
+
+    sub do_stuff {
+	local $MIME::Entity::BOUNDARY_DELIMITER = "\r\n";
+	...
+        $entity->print;
+    }
+
+
+=back
+
 =cut
 
 #------------------------------
@@ -251,6 +272,10 @@ use IO::Lines;
 ### The package version, both in 1.23 style *and* usable by MakeMaker:
 $VERSION = "5.417";
 
+### Boundary end-of-line sequence:
+use vars qw($BOUNDARY_DELIMITER);
+$BOUNDARY_DELIMITER = "\n";
+
 ### Boundary counter:
 my $BCount = 0;
 
@@ -1746,7 +1771,7 @@ sub print {
     $out = wraphandle($out);             ### get a printable output
     
     $self->print_header($out);   ### the header
-    $out->print("\n");
+    $out->print($BOUNDARY_DELIMITER);
     $self->print_body($out);     ### the "stuff after the header"
 }
 
@@ -1794,22 +1819,24 @@ sub print_body {
 
 	### Preamble:
 	my $preamble = join('', @{ $self->preamble || $DefPreamble });
-	$out->print("$preamble\n") if ($preamble ne '');
+	$out->print($preamble.$BOUNDARY_DELIMITER) 
+	    if ($preamble ne '');
 
 	### Parts:
 	my $part;
 	foreach $part ($self->parts) {
-	    $out->print("--$boundary\n");
+	    $out->print("--$boundary".$BOUNDARY_DELIMITER);
 	    $part->print($out);
-	    $out->print("\n");           ### needed for next delim/close
+	    $out->print($BOUNDARY_DELIMITER);   ### needed for next delim/close
 	}
-	$out->print("--$boundary--\n");
+	$out->print("--$boundary--".$BOUNDARY_DELIMITER);
 
 	### Epilogue:
 	my $epilogue = join('', @{ $self->epilogue || $DefEpilogue });
 	if ($epilogue ne '') {
 	    $out->print($epilogue);
-	    $out->print("\n") if ($epilogue !~ /\n\Z/);  ### be nice
+	    $out->print($BOUNDARY_DELIMITER) 
+		if ($epilogue !~ /\n\Z/);  ### be nice
 	}
     }