my $file=File::Tail->new(name=>"$SEARCH_LOG", maxinterval=>10); LogIt("Initiated 'tail' ... reading file '$SEARCH_LOG':\n"); LogIt(" ... Looking for '$STRING'\n"); while (defined(my $line=$file->read)) { LogIt("Read line: $line"); next unless ( $line =~ /$STRING/ ); LogIt("That Line MATCHES SEARCH STRING: '$STRING'\n"); lock($occurred); $occurred ++; LogIt("$line"); LogIt("Increasing OCCURRED flag to '$occurred'"); }