OK, comment out this line ;

## next unless ($date eq $TODAY);
[download]

and the if

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

poj