Select Code to Download

sub lee_socket
{
...

   close($Socket_);
}

$mw ->fileevent($socket, readable => sub {
       my $line = <$socket>;
...
          }
      $log->insert(end => $line);
  });