use strict;
use File::tail;

my $file =  File::Tail->new('C:/Users/tiang/Documents/Perl/daily.20170731142932.txt');

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

   print "$line\n";
}