$minutes = $minutes * 60; # minutes = 5 prior
my $shorttime = localtime( time() - $minutes );
my $data = qq(DELETE FROM now_time WHERE time < "$shorttime");

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

#my $day = 60 * 60 * 24;
#my $timeday = $timenow - $day;

my $day = localtime( time() - 24*60*60 );

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