use MIME::Lite;
use Net::SMTP;

my @addrlist = (<BIG ASS LIST OF ADDRS>);
my $msg = "<A HUGE MSG, 100's of lines Long>";
&EMailSMTP(\@addrlist,\$msg) || die "Couldn't SMTP :$!\n";
&EMailMIME(\@addrlist,\$msg) || die "Couldn't MIME :$!\n";

sub EMailSMTP {
    my ($addrs, $Lusertxt) = @_;
    @headers = ("Subject: Subject Text.\n",
                "To : To Mask \n",
                "From : me\@here.com\n",          
                "\n",
                "$$Lusertxt\n");
   my $smtp = Net::SMTP->new('mailserver.com') || die "Nope!! No SMTP :$!\n";
    
        $smtp->mail("fromaddr\@here.com");     
    	$smtp->to(@$addrs);
        $smtp->data(@headers) ;                
        $smtp->quit;

    return 1;
}

sub EMailMIME{
my ($addrs, $Lusertxt) = @_;

    MIME::Lite->send('smtp', "mailserver.com", Timeout=>60);  
    foreach my $addr (@$addrs){
       my $msg = MIME::Lite->new(
                     From    =>'someaddr@here.com',
                     To      =>$addr,
                     Subject =>"Subject Text",
                     Type    =>'TEXT',
                     Data => $$Lusertxt
                     );
        $msg->send();
    }   
    return 1;
}