Hi!
You can try following code.

use Net::SMTP;

open (IN, "your html file") or die "I can not open file:$!\n";
 
#Get the file content in an array
my @Message = <IN>;
close (IN);
    
my @MailID = <mail ID list>;

#sending mail
my $Mail = Net::SMTP->new("<your smtp mail server IP>");
$Mail -> mail($ENV{USER});
$Mail -> to (@MailID);
$Mail -> data();
$Mail -> datasend ("Subject:<subject>\n");
$Mail -> datasend ("To: @MailID\n");
$Mail -> datasend ("From:<Sender name>\n");
$Mail -> datasend ("Mime-Version: 1.0\;\n");
$Mail -> datasend ("Content-Type: text/html\; charset=\"ISO-8859-1\"\;
+");
$Mail -> datasend ("Content-Transfer-Encoding: 7bit\;");
$Mail -> datasend ("\n\n"); #This is important
$Mail -> datasend ("@Message\n");
$Mail -> dataend();
$Mail -> quit;
[download]

Bye. -Pijush