#!/usr/bin/perl -w
use strict;
use warnings;
use IO::Handle;
STDOUT -> autoflush (1);
use Fcntl qw(:DEFAULT :flock);

my $log = 'testrw_log.txt';

my $lzeile = 0;	# dieser Wert wird vom Client JS/Ajax mitgebracht
while (1==1) {
	if (sysopen (my $file,$log,O_RDONLY)) {
		my @zeilen = <$file>;
		close ($file);
		if (scalar @zeilen > $lzeile) {
			print "Neu:\n" . join ("",@zeilen[$lzeile..scalar @zeilen - 1]) . "\n";
			$lzeile = scalar @zeilen;
			# an dieser Stelle wird dem Client der aktuelle Text sowie die letzte Nummer $lzeile übergeben
		}
		else { print "nichts neues, warte...\n"; }
	}
	else { print "Fehler $!\n"; }
	sleep 1;
}