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 }