#!/usr/bin/perl

open FILE,"<foo.txt" || die $!;

for (;;) {
  for ($curpos = tell(FILE); $_ = <FILE>;
       $curpos = tell(FILE)) {
    ## do something exciting here
    print;
  }
  sleep(1);
  seek(FILE, $curpos, 0);
}