Select Code to Download

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

...
for my $row (0 .. $#{$ref}) {
  print "$ref->[$row][0] $ref->[$row][1] on $ref->[$row][2]<br>\n";
}