title: Perl to read each lines and print the output in email (html)
body: <p>The below code able to read the content of file and print the content of body with the file's content.   </p>
  
  <pre><code>use strict;     
  my $filename = '.../text.txt';
  open (my $ifh, '&lt;', $filename)
  or die "Could not open file '$filename' $!";
  local $/ = undef;
  my @row = (&lt;$ifh&gt;)[0..9];
  close ($ifh);
  print  "@row\n";
  
  my ($body) = @_;
  my ($html_body)= @_;
  .
  .
  .
  print(MAIL "Subject: Important Announcement \n");
  .
  .
  .
  push(@$html_body, "&lt;h1&gt;&lt;b&gt;&lt;font color= red &gt;&lt;u&gt;ATTENTION!&lt;/u&gt;&lt;/b&gt;&lt;/h1&gt;&lt;/font&gt;&lt;br&gt;");
   push(@$html_body, "@row");
  .
  .
  .
   print(MAIL "$body", "@$html_body");
   close(MAIL);
  </code></pre>
  
  <p>But unfortunately, i am having problem to produce the email body with same format of the text.txt file. The output email produced only having single line instead of paragraphs of 3.</p>