my $file = '/path/to/file.log';
my $bool_pattern = 0;
open(R_LOG,"<$file") or die $!; # Datei zum Lesen öffnen, bei Fehler -> Programmabbruch und Fehlermeldung
while(my $line = <R_LOG>){ # solange Zeilen eingelesen werden
  $bool_pattern = 1 if($line =~ /DEIN_PATTERN/); # setze $bool_pattern auf 1, wenn das Pattern auftaucht
}
close R_LOG; # schließe die Datei

restart_webserver() if($bool_pattern); # wenn pattern gefunden wurde, dann starte den Webserver

use strict;
local $| = 1; #Autoflush true
my $file = 'c:/cygwin/var/log/setup.log';
die "tail nicht installiert\n" unless qx/which tail/;
open(TAIL,"tail -f $file |") or die $!;
while(my $line = <TAIL>){
 print "$.: $line\n";
 print "Gefunden\n" if $line =~ m/DEIN_PATTERN/;
}
close TAIL; # schließe die Pipe