while (<LOG>) {
  grok($_);
}
sleep 15;
seek LOG, 0, 1;