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 "$_";
}

##</code><code>##

use strict;
use warnings;

open(WRITE, ">>C:\\File\\test.dat");

my $num = 1;
while(1) {
    print "$num\n";
    print WRITE "$num\n";
    sleep 1;
    $num ++;
}
    
close WRITE;