while (1)
{
  while(1)
  {
    my $line = <TAIL>;
    if (!defined($line))
    {
      redo    if $! eq 'Interrupted system call';
      last;
    }

    print $line;
  }
  printf "Fell through...\n";
}