print qq~
<tr>
<td style="font-color:red;font-weight:bold;">$row[0]</td>
<td style="font-color:red;font-weight:bold;">$row[1]</td>
<td style="font-color:red;font-weight:bold;">$row[2]</td>
<td style="font-color:red;font-weight:bold;">$row[3]</td>
</tr>
~;