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 = ;
close (IN);
my @MailID = ;
#sending mail
my $Mail = Net::SMTP->new("");
$Mail -> mail($ENV{USER});
$Mail -> to (@MailID);
$Mail -> data();
$Mail -> datasend ("Subject:\n");
$Mail -> datasend ("To: @MailID\n");
$Mail -> datasend ("From:\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;