#!/usr/bin/perl
#

use File::Tail;


$name = "/path/to/logfile";

$file=File::Tail->new(name=>$name,
																								maxinterval=>1,
																								debug=>1);


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



__END__