Then comment out your first fileevent and see what happens. Your text handling should be done in the handle_connection subroutine.

Below is how the server code should look, I don't know how you got it so confused. Notice how clients get created in new_connection, and handled by handle_connection.

#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket;
use Tk;

$|=1;
$SIG{PIPE} = 'IGNORE';

my $listen = IO::Socket::INET->new(
    Proto       => 'tcp',
    LocalPort   => 7070,
    Listen      => 1,
    Reuse       => 1,
) or die "Can't create listen socket : $!\n";

my $mw = MainWindow->new();

my $text = $mw->Scrolled('Text',
                  -background =>'black',
          -foreground => 'yellow',
             )->pack();      

my $subframe = $mw->Frame()->pack();

$subframe->Button(-text => 'Clear',
         -command => sub {
                  $text->delete('1.0','end');
           })->pack(-side=>'left');

$subframe->Button(-text => 'Save Log',
         -command => sub {   })->pack(-side=>'left');

$subframe->Button(-text => 'Exit',
         -command => sub { exit  })->pack(-side=>'right');
                           
                           
$mw->fileevent($listen, 'readable', sub { new_connection($listen) });

Tk::MainLoop;

sub new_connection {
    my ($listen) = @_;
    my $client = $listen->accept() or warn "Can't accept connection";
    $client->autoflush(1);
    $mw->fileevent($client, 'readable', sub { handle_connection($clien
+t) });
    $client->print("Connected\n");
    $text->insert('end', "Connected\t");
    $text->see('end');
}

sub handle_connection {
    my ($client) = @_;
    my $message = <$client>;
    if (defined $message and $message !~ /^quit/) {
     $message =~ s/[\r\n]+$//;
     $client->print("Got message [$message]\n"); #echo back if wanted
     $text->insert('end', "Got message [$message]\t");
     $text->see('end');
    }
    else {
       $text->insert('end', "Connection Closed\n");
       $text->see('end');
       $client->close();
    }
}
[download]

Even with your (very sensible) modification, under windows, the listener's readable event handler is never called. Even though the connection from client to server is established. And even if the listener socket is set nonblocking.

My conclusion is that Tk fileevents simply do not work on windows.

---

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

The start of some sanity?

The OP might want to look at Another Win32 Tk fileevent work around : using ioctl() properly

---

I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh