while (<PIPE>) {
      chop ($_) ;

      $lb2 -> insert('end',$_);
      $lb2->update();              # <---
   }