Help for this page

Select Code to Download

Select or download this

   while (<PIPE>) {
      chop ($_) ;
...
      $lb2 -> insert('end',$_);
      $lb2->update();              # <---
   }