#!/usr/bin/perl -w
use strict;
use File::Tail;

my $file = File::Tail->new(
		name =>'/var/log/messages', 
		interval => 1, 
		maxinterval => 1, 
#		resetafter=> 5, 
		);

while (defined(my $line=$file->read)) {
 
	print $line;

}