use MIME::Base64;

$smtp->data();
$smtp->datasend( "\nSubject: $subj \nMIME-Version: 1.0" );
$smtp->datasend( "\nContent-Type: multipart/mixed;boundary=\"Bb0uNddAr
+ray\"" );
$smtp->datasend( "\n--Bb0uNddArray" );
$smtp->datasend( "\nContent-type: text/plain" );
$smtp->datasend( "\n\n$msg\n\n" );    # plaintext body
 
if( $attachement )
{

   $smtp->datasend( "--Bb0uNddArray" );
   $smtp->datasend( "\nContent-Type: $content_type; name=\"$filename\"
+" ); 

  $smtp->datasend( "\nContent-Transfer-Encoding: base64\n\n" );

      while ( read( $file, $buff, 512 ) 
       {
    $smtp->datasend( encode_base64($buff) ) || die"cant encode: $!";
       }
   
} # if attachement

$smtp->datasend( "\n\n--Bb0uNddArray--" );    # send this even if ther
+es no attachment    
$smtp->dataend();
$smtp->quit;
[download]

Hope it helps
-bl0rf

If you use Data::Dumper on your MIME::Lite object you will see that it is just the text string of the MIME formatted email.

So all you need to do to send the same message to a large number of recipients is this:

$msg = MIME::Lite->new(
                 From     =>'me@myhost.com',
                 To       =>'recipient@yourhost.com',
                 Subject  =>'Helloooooo, nurse!',
                 Type     =>'image/gif',
                 Encoding =>'base64',
                 Path     =>'hellonurse.gif'
         );

# add multipart(s) to $msg in the usual way

for my $recipient (@recipients) {
    $msg =~ s/To: (.*)/To: $recipient/;
    $msg->send;
}
[download]

All we are doing is rewriting the To: foo@bar.com part of the header which has the desired effect. You could also just do a Cc like:

    
my $cc = join ', ', @recipients;
$msg = MIME::Lite->new(
                 From     =>'me@myhost.com',
                 To       =>'you@yourhost.com',
                 Cc       =>$cc,
                 Subject  =>'Helloooooo, nurse!',
                 Type     =>'image/gif',
                 Encoding =>'base64',
                 Path     =>'hellonurse.gif'
         );

$msg->send;
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print