$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;
}

##</code><code>##

    
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;