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