Select Code to Download

sub insert_text {
   local($_) = <LOG>;          # process 1 waiting line
...
      $text->insert('end', $_);
   }
}