Select Code to Download

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

  while (readdir $dirH) {
    next if ($_ eq '.'|| $_ eq '..');
...
      open $Accts{$_}, "<$Cpath/$dateDir/$_/all/events.log";
    }
  }

  foreach $key (keys %Accts){
    # 
...
      $rsltStr .= $msgL;
    }
  }

       1400765377 msgfrom@10.0.1.2 GLOB(0x1f11bf8)

  foreach $key (keys %teamAccts){
    # 
...
      #addEvent ($key, $L);
    }
  }

--scanning
MSpt scanCS: opening  <Chris - Kali 1@10.0.1.2>
...
+++finding
MSpt Key=Chris - Kali 1@10.0.1.2
--scanning