print qq(   # this is line 341!
              
                 <tr $style>
                     <td>$autor</td>
                     <td></td>
                     <td rowspan=2 valign=top>$vendor</td>
                     <td rowspan=2 valign=top></td>
                     <td rowspan=2 valign=top align=center>$year</td>
                     <td rowspan=2 valign=top></td>
                     <td rowspan=2 valign=top>R\$&nbsp;$price</td>
                     <td rowspan=2 valign=top></td>
                     <td rowspan=2 valign=top width=40>
                     <a href="javascript:void(0)" onClick="window.open('$domain/mod_perl/display.cgi?livro=$rec_id','Info','status=yes,scrollbars=yes,resizable=yes,width=620,height=520,left=100,top=75');"><img src="$domain/images/basket.gif" border=0 alt="click here to see all specs"></a>
                     <a href="javascript:void(0)" onClick="window.open('$domain/cgi-bin/cart.cgi?action=buy&item=$item_id','Info','status=yes,scrollbars=yes,resizable=yes,width=620,height=520,left=100,top=75');"><img src="$domain/images/go.gif" border=0 alt="clique here to buy "></a>
                     </td>
                     </tr>
                     
                 <tr $xadrez>
                     <td colspan=4>
                     &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
                     <a href="javascript:void(0)" onClick="window.open('$domain/mod_perl/details.cgi?item=$item_id','Info','status=yes,scrollbars=yes,resizable=yes,width=620,height=520,left=100,top=75');">
                     <i>$name</i></a></td>
                     </tr>
                 
              );