use strict;
use warnings;

use File::Tail;

my $name = 'C:\File\test.dat';

my $ref=tie *FH,"File::Tail",(name=>$name,
		   	      ignore_nonexistant=>1,
			      interval=>0,
			      maxinterval=>0.1,
			      tail=>-1,
			      maxbuf=>16,
			      adjustafter=>1);
while (<FH>) {
    print "$_";
}