for (;;) {
    while (<LOG>) {
	...           # Process file.
    }
    sleep 15;
    seek(LOG,0,1);      # Reset end-of-file error.
}
