To: 2c@talktalk.net, 3c@talktalk.net, 4c@talktalk.net, 5c@talktalk.net, 5c@talktalk.net, 5c@talktalk.net, 5c@talktalk.net

##</code><code>##

$getemails = $DBH->prepare("SELECT DISTINCT EMAIL FROM USERS");
$getemails->execute();
$db_emails = $getemails->fetchall_arrayref;
$emails = join ',',map{$_->[0]}@$db_emails;

$TO = $emails;
$FROM = 'myeamil@email.com';
$SUBJECT = 'hey';
$MESSAGE = "

Sup 

";

$MSG = MIME::Lite->new(
                 From     => $FROM,
                 To       => $TO,
                 Subject  => $SUBJECT,
                 Data     => $MESSAGE
                 );
                 
$MSG->send;