title: How to display values in perl html table?
body: <p>I've the below HTML code inside a perl file where I'm sending a mail. The mail part and html part is fine, but when I try to add perl code inside DATA as <code>$BStatus</code> and <code>$AStatus</code> its showing as it is! Values for the above two variables is already present and I confirmed it.</p>
  
  <p>How do I display its values?</p>
  
  <pre><code>$tme=localtime();
  $subject='Android Results';
  use MIME::Lite;
  my $msg = MIME::Lite-&gt;new (
    Subject =&gt; $subject,
    From    =&gt; 'xyz@gmail.com',
    To      =&gt; 'xyz@gmail.com',
    Type    =&gt; 'text/html',
    Data    =&gt; '&lt;H1&gt;Summary&lt;/H1&gt;&lt;br&gt; &lt;table border="1"&gt; &lt;tr bgcolor="#87CEFA"&gt; &lt;th&gt;Platforms&lt;/th&gt; &lt;th&gt;BStatus&lt;/th&gt; &lt;th&gt;AStatus&lt;/th&gt; &lt;th&gt;Results&lt;/th&gt; &lt;/tr&gt;  &lt;tr&gt; &lt;th bgcolor="#87CEFA"&gt;123&lt;/th&gt; &lt;td&gt;$kstatus&lt;/td&gt; &lt;td&gt;$astatus&lt;/td&gt; &lt;td&gt; &lt;a href="http://xx.xxx.xx.xx/Android/123.html"&gt;123-Results&lt;/a&gt; &lt;/tr&gt;  &lt;tr&gt; &lt;th bgcolor="#87CEFA"&gt;atgs&lt;/th&gt; &lt;td&gt;row 2, cell 2&lt;/td&gt; &lt;td&gt;row 2, cell 3&lt;/td&gt; &lt;/tr&gt;  &lt;tr&gt; &lt;th bgcolor="#87CEFA"&gt;8765&lt;/th&gt; &lt;td&gt;row 2, cell 2&lt;/td&gt; &lt;td&gt;row 2, cell 3&lt;/td&gt; &lt;/tr&gt;  &lt;tr&gt;&lt;/table&gt;'
  );
  $msg-&gt;send();
  </code></pre>