## next unless ($date eq $TODAY);

##</code><code>##

 # add condition
 ##   if ($minutes >= $START_MINUTE){
      my $uid = $conn{$conn}; 
      ++$users{$uid};
 ##   }