while( 1 ) {
  while( my $line = <$FH> ) {
    print $line;
  }
  sleep 1;
  $FH->clearerr();
} # while 1