while (my @data = $sth->fetchrow_array()) {
          print sprintf(qq~<TR>\n<TD><B>%s</B></TD>
                         <TD>%s</TD>
                         <TD>%s</TD>
                         <TD><B>%s</B></TD>
                         <TD>%s</TD>\n</TR>~,@data);
      }