my $mailHost = 'mail.domain.com';
my $user = 'username';
my $pass = 'password';
my $html = 'someHTML';
my $text = 'someText';
use MIME::Lite;
MIME::Lite->send('smtp', $mailHost, AuthUser=>$user, AuthPass=>$pass);
my $msg = MIME::Lite->new(
        From    => 'Mailing list <list@domain.com>',
        To      => $email,
        Subject => $subject,
        Type    => 'multipart/alternative'
    );
    $msg->attach(
        Type     => 'TEXT',
        Data     => $text
    );
    $msg->attach(
        Type     => 'text/html',
        Data     => $html
    );
    $msg->send();