my @input = <LOG>;
    {
        my $found = 0;
        foreach (@input) {
            $found = 1 if /foo/;
            print LOGFILE if $found;
        }
    }