Help for this page
foreach ($textline = <LOG>) {
foreach my $textline ( <LOG> ) { # or, much better: while( defined( $textline= <LOG> ) ) {