my $data = qq(SELECT search, engine, time FROM searches WHERE DATE_SUB(CURDATE(),INTERVAL 7 DAY) <= time);

my $sth = $dbh->prepare($data);
$sth->execute() or die $dbh->errstr;

my ($search, $engine, $date);
$sth->bind_columns(\$search, \$engine, \$date);

while($sth->fetch)
{
  print "$search $engine on $date<br>";
}