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;