Select Code to Download

my $offset = 65;
my $date = strftime "%Y-%m-%d",
    localtime(time - $offset * 86400);

my $datetime = strftime "%Y-%m-%d %H:%M:%S",
    localtime(time - $offset * 86400);

my $offset = 65;
my $time = $offset * 86400;
...
where stamp > from_unixtime(?)
SQL
$sth->execute($time);

my $sth = $dbh->prepare_cached(<<SQL);
select host
...
where to_days(now()) - to_days(stamp) > ?
SQL
$sth->execute(7);

my $sth = $dbh->prepare_cached(<<SQL);
select host
...
where stamp > date_sub(now(), interval ? day)
SQL
$sth->execute(7);