open (LOGPIPE, $pipename) || print "konnte $pipename nicht oeffnen\n";
while (<LOGPIPE>)                                                               #  Zeilen lesen
 {
  my $logline = $_;                                                            # Zeile sichern