my $timenow = time();
$minutes = $minutes * 60;
my $timemin = $timenow - $minutes;

my $data = qq(DELETE FROM now_time WHERE time < "$timemin");
my $sth = $dbh->prepare($data);
$sth->execute() or die $dbh->errstr;

my $day = 60 * 60 * 24;
my $timeday = $timenow - $day;
#print "Time day: $timeday <br> day: $day <br> Time: $timenow";

my $data = qq(DELETE FROM day_time WHERE time < "$timeday");
my $sth = $dbh->prepare($data);
$sth->execute() or die $dbh->errstr;