#!/usr/bin/perl

use strict;
use warnings;

open(DATEI,"</var/log/system.log");

while(1)
{
        foreach(<DATEI>)
        {
                print $_;
        }
        sleep 1;
}