After you check your lists, here is a basic mailing subroutine. Change the Content Type to plain text if you don't want to add attachments.

#!/usr/bin/perl

#This is the sending routine from a larger program which uses both Mim
+e::Lite
# and Net::SMTP, which does the mail server login.
# Variable names passed to the routine should be self explanatory.

sub sendmsg {
my ( $From_Addr, $Mail_Name,  $Subj_Text, $Body_Text, $File_Name,
$Mime_Data,) = @_;

my $msg = MIME::Lite->new(
 From =>$From_Addr,
 To =>$Mail_Name,
 Subject =>$Subj_Text,
 Type =>'multipart/mixed',
);

$msg->attach(Type=>'TEXT',
  Data=>$Body_Text,
);


$msg->attach(Type=>'application/octet-stream',
  Data=>$Mime_Data,
  Filename=>$File_Name,
);

MIME::Lite->send('smtp', "mail.somewhere.net", Timeout=>60);
}
[download]