Stuff

my @Log;
@Log=<LOG>;
while(1)
{
    @Log=<LOG>;
    if(@Log)
    {
        foreach $zeile(@Log)
        {
            #.....
        }
    }
    sleep 1;
}