open (LOG, ....) or die $!;
for (;;) {
    print <LOG>;
    sleep 1;
    seek (LOG, 0, 1);
}