use strict;
use warnings;
open (my $IN, '<', 'c:/temp/logbook.log') or die "can not open datei: $!";

my $error_count = 0;

while( my $line = <$IN> )
{
    if( $line =~ m/error/i )
    {
        print $line;
        $error_count ++;
    }
}

close $IN;

if( 0 == $error_count )
{
   open FILE, '>', $file or die "Kann Datei $file nicht zum Schreiben oeffnen: $!\n";
    print FILE "ok!\n";           
    close FILE;
}