#!/perl

use strict;
use warnings;
use Tie::File;

my $logfile = "blablalogfile.txt";
#my $logfile = "test.txt";
my $o = tie my @array, 'Tie::File', $logfile;
$o->flock;
my $line_count = $#array;

while (1) {
	if ($line_count < $#array) {
		$line_count++;
#		foreach my $line (@array) {
		foreach my $line ($line_count .. $#array) {
			print $line;
		}
		$line_count = $#array;
	}
	sleep(1);
}