#!/usr/bin/perl -w

use strict;

my $LogFile="C:/test.txt";

my $naptime=3;
my $logpos;
#Reads LOGFILE continuously
open(LOGFILE,"<$LogFile") ||  die "Couldn't open file Status - $!\n";
while (1) 
{
    sleep $naptime;

    $logpos = tell(LOGFILE);
    
    while(<LOGFILE>)
    {
        print;
    }

    seek(LOGFILE, $logpos, 0);  # seek to last known 
 }