open INP, "<xyzzy";
  while (! $fileRotated){
     while(<INP>){
        ... read lines
     }
     sleep 1;
     seek (INP,0,1);  #clear EOF
     #check inodes and length
  }

##</code><code>##

  while (readdir $dirH) {
    next if ($_ eq '.'|| $_ eq '..');
    next if (! m/\@(?:\d{1,3}\.)\d{1,3}/); #ip of src of records
    if ( ! defined $Accts{$_}){    #new directory
      # open the new file and put handle in hash
      #open $Accts{$_}, "<$_/all/events.log"; 
      open $Accts{$_}, "<$Cpath/$dateDir/$_/all/events.log";
    }
  }

##</code><code>##

  foreach $key (keys %Accts){
    # 
    seek($teamAccts{$key},  0, 1); # reset end-of-file error
    my $safekey=$key;
    $safekey =~ s/ /_/g;  # no embedded spaces in tokens
    while (<$Accts{$key}> ) {  # one of the sub files
      my $L=$_;    # $_ by itself gave same result
      my $msgL="$DTG $safekey $L";  # $L should have \n already
      $rsltStr .= $msgL;
    }
  }

##</code><code>##

       1400765377 msgfrom@10.0.1.2 GLOB(0x1f11bf8) 

##</code><code>##

  foreach $key (keys %teamAccts){
    # 
    plog "Key=$key";
    seek($teamAccts{$key},  0, 1); # reset end-of-file error
    my $safekey=$key;
    $safekey =~ s/ /_/g;  # no embedded spaces in tokens
    #while (<$teamAccts{$key}> ) {  # one of the sub files
    while ( readline($teamAccts{$key}) ){
      my $L=$_;
      plog "readline=<$L>";
      my $msgL="$DTG $safekey $L";  # $line should have \n already
      $eventStr .= $msgL;
      #addEvent ($key, $L);
    }
  }

##</code><code>##

--scanning
MSpt scanCS: opening  <Chris - Kali 1@10.0.1.2>
$VAR1 = 'Chris - Kali 1@10.0.1.2';
$VAR2 = \*{'::$teamAccts{...}'};
--finding
+++finding
MSpt Key=Chris - Kali 1@10.0.1.2
--scanning