open(PB_BODY_LIMITED, "> $file_name") or die "Can't $!\n"; 

print PB_BODY_LIMITED 

"
<table width=600>
      <tr>
         <th colspan='2' class='top'>-- Perbill Search Results --</th>
      </tr>
      <tr>
         <th class='left'>Company</th>
         <td>$data[0]</td>
      </tr>
      <tr>
         <th class='left'>Company ID(302)</th>
         <td>$company_name_id</td>
      </tr>      
      <tr>
         <th class='left'> Docs</th>
         <td>$data[1]</td>
      </tr>
      <tr>
         <th class='left'> Bytes</th>
         <td>$data[2]</td>
      </tr>
      <tr>
         <th class='left'>From</th>
         <td>$from_month$from_day$from_year</td>
      </tr>
      <tr>
         <th class='left'>To</th>
         <td>$to_month$to_day$to_year</td>
      </tr>            
</table>

";