#!/usr/bin/perl
use strict;
use warnings;

my $fname = '/var/log/Xorg.0.log';

open my $fh, '<', $fname or die $!;

while ( my $line = <$fh> ) {
	print $line;
	sleep 1;
}