use strict;
my $file="abc786";
while(1)

{

       if (-s $file > 0)
       {

       open(my $in,"+<",$file) or die "$!";
       print STDOUT <$in>;
       seek($in,0,0);
       truncate($in,0);
       }
sleep 1;
}