open (FH, "filename") or die "Unable to open file: $!";
$DELAY = 5;

for(;;) {

  while(<FH>) {
     #do stuff here
  }
  sleep $DELAY
  seek(FH, 0, 1);
}