my $msg = MIME::Lite->new(
    To => 'Alias@xxxx.com',
    Subject = $subject,
    Type => 'text/plain,
    Data => $message
);