my $useragent = "SELECT useragent FROM visit
   WHERE engine_id = 'Junk'";
   $sth = $dbh->prepare($useragent);
   $sth->execute() or die $dbh->errstr;

   my @row = $sth->fetchrow_array;
   foreach (@row)
   {
      print "<center>$_</center>";
   }

##</code><code>##

my $data = "SELECT engine_id,useragent,ip,date FROM visit
WHERE engine_id = 'Junk'";
$sth = $dbh->prepare($data);
$sth->execute() or die $dbh->errstr;
while (my @row = $sth->fetchrow_array) { print "$_<br>" for @row }

##</code><code>##

<td>COUNT (ID)</td> <td>UserAgent</td> <td>IP</td> <td>time</td> <td></td><tr>
 ...... again ....