use File::Tail;
  $file=File::Tail->new(name=>$name, maxinterval=>10);
  while (defined($line=$file->read)) {
      if ($line =~ m/accept Rejected. Max connection reached/i) {
          print "found max connections\n";
      }
  }