use MIME::QuotedPrint;

 use MIME::Base64;

 use Mail::Sendmail 0.75; # doesn't work with v. 0.74!

 

 %mail = (

          from => 'rlm@mit.edu',

          to => 'rlm@mit.edu',

          subject => 'Test attachment',

         );

 

 

 $boundary = "====" . time() . "====";

 $mail{'content-type'} = "multipart/mixed; boundary=\"$boundary\"";

 

 $message = encode_qp( "email from your friend PERL." );

 

 $file = "./inkscape/arrow.svg"; 

 

 open (F, $file) or die "Cannot read $file: $!";

 binmode F; undef $/;

 $attach1 = encode_base64(<F>);

 close F;

 

 

 

 $attach2 = encode_base64("hi this is a test arttacghjkalsdlasndlashdlsf");

 

 

 

 

 

 $boundary = '--'.$boundary;

 $mail{body} = <<END_OF_BODY;

 $boundary

 Content-Type: text/plain; charset="iso-8859-1"

 Content-Transfer-Encoding: quoted-printable

 

 $message

 $boundary

 Content-Type: application/octet-stream; name="test.svg"

 Content-Transfer-Encoding: base64

 Content-Disposition: attachment; filename="test.svg"

 

 $attach1

 

 $boundary

 Content-Type: application/octet-stream; name="huh.txt"

 Content-Transfer-Encoding: base64

 Content-Disposition: attachment; filename="huh.txt"

 

 $attach2

 $boundary--

 

 END_OF_BODY

 

 sendmail(%mail) || print "Error: $Mail::Sendmail::error\n";