#!/usr/bin/perl 
use strict;
use warnings;

my $ldir = '/strek';
my @races = undef;

opendir my $dh, $ldir
   or die "$0: opendir: $!";

while (defined(my $name = readdir $dh)) {
   next unless {-d "$ldir/$name"};
   push (@races, $name);
}

for (@races) {
   for my $i (0..4) {
      if ( -s "/strek/$_/logs/rlog$i.sr.html" ) {
         
      } else {
         print "/strek/$_/logs/rlog$i.sr.html either does not exist or is 0 bytes!\n";
      }
   }
}