#!perl -w
use strict;

open FH, "<".shift or die $!;
seek(FH,0,2);
while(1) {
seek(FH,0,1);
while (<FH>) {
    print $_;
}
sleep(1);
}