Hi, Finally I done my table, thank you very much to golux. Below are the script working for me :) 
    my $data =    qq{
    Hi All,<br>
    
    Currently below are the chassis which is currently being assigned
        
    <TABLE cellSpacing=\"0\" cellPadding=\"0\" border=\"1\"  align=\"c
+enter\">
    <TR align=\"center\"><TD>No</TD><TD>version</TD><TD>Chassis</TD><T
+D>Assigned</TD><TD>CMMIP1</TD><TD>CMMIP2</TD><TD>CMM1<br>SerialPortCo
+nnection</TD><TD>CMM2<br>SerialPortConnection</TD><TD>Ibootbar_Altuse
+n</TD></TR>
    };

    # Open db for reading -- but die if there's an error
    open(INFO, "data.txt")or die "Failed to open 'data.txt' ($!)\n"; #
+ Open db for reading
    @array = <INFO>;
    close (INFO);
    @ascend=sort(@array);


    foreach my $line (@ascend){
    my($version,$Chassis,$Assigned,$CMMIP1,$CMMIP2,$CMM1SerialPortConn
+ection,$CMM1SerialPortConnectionPort,$CMM2SerialPortConnection,$CMM2S
+erialPortConnectionPort,$Ibootbar_Altusen) = split(/\|/,$line);
    $data .= qq{
    <TR><TD align=\"center\"> $i
    </TD><TD>
    $version
    </TD><TD>
    $Chassis
    </TD><TD>
    $Assigned
    </TD><TD>
    $CMMIP1
    </TD><TD>
    $CMMIP2
    </TD><TD>
    $CMM1SerialPortConnection
    <h>Port-</h>
    $CMM1SerialPortConnectionPort
    </TD><TD>
    $CMM2SerialPortConnection
    <h>Port-</h>
    $CMM2SerialPortConnectionPort
    </TD><TD>
    $Ibootbar_Altusen
    </TD></TR>
    };
    ++$i;
}


print "DATA:\n $data\n";


    my $mime = MIME::Lite->new(
        'From'    => $sender,
        'To'      => $email,
        'Subject' => $subject,
        'Type'    => 'text/html',
        'Data'    => $data,
    );

    $pingStatus = &checkTargetPing("mail.hotmail.com");
    if ($pingStatus eq 1)
    {
            $smtp = Net::SMTP->new('mail.hotmails.com');
            $mime->send() or die "Failed to send mail\n";
            $mime->quit;
    }
}

[download]

In reply to Re^4: html format email by GordonLim
in thread html format email by GordonLim

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.