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

my $client;

$mw->fileevent($socket, 'readable', sub { new_connection($socket) });