Tkx socket server can't read input

Hello,

I'm trying to implement a simple tcp server using Tkx, based on some 
sample code I've found on this mailing list and PerlMonks, and am having 
some trouble. The idea is that a client script will send some data to 
the server, and the server will print the data into its own display.

Here is the client script:

#!/usr/bin/perl
use IO::Socket;

my $machine_addr = 'localhost';
$sock = new IO::Socket::INET(PeerAddr=>$machine_addr,
       PeerPort=>7777,
       Proto=>'tcp',
       );
die "Could not connect: $!" unless $sock;

foreach my $count(1..5){
   print $sock "$count\n";
   print "$count\n";

}
close ($sock);


And the server script:

use strict;
use warnings;

use Tkx;
Tkx::package_require('tile');
my $mw = Tkx::widget->new(".");


my $server = Tkx::socket(-server => [\&new_connection], 7777);

my $log = $mw->new_tk__text(
     -height => 10,
     -width  => 60,
     -wrap   => 'none'
);
$log->g_grid( -column => 0, -row => 0 );

Tkx::fconfigure($server, -blocking => 0);
#Tkx::fileevent( $server, readable => [\&new_connection, \$server]  );
Tkx::MainLoop();

sub new_connection {

     my $client = shift;
     Tkx::fconfigure($client, -blocking => 0);
     Tkx::fileevent( $client, readable =>[\&handle_connection, \$client]);
     $log->insert( 'end', "connected\n" );
     $log->see('end');
     Tkx::update();
}

sub handle_connection {
     my ($client) = shift;
     my $message;
     my $n;
   # eval { $message = Tkx::gets($client, $n); };
      $message = Tkx::gets($client, $n);
     if ( defined $message and $message !~ /^quit/ ) {
         $message =~ s/[\r\n]+$//;
         $log->insert( 'end', "$message\n" );
         $log->see('end');
         Tkx::update();
     }
     else {
         print "connection closed\n";
         $log->insert( 'end', "connection closed\n" );
         $log->see('end');
         Tkx::update();
         $client->close();
     }
}

The server starts fine, but when I fire up the client script and send 
data, the server hangs with this error message:

can not find channel named "::perl::SCALAR(0x7fa3ab87cdc8)" at 
tkx-server.pl line 38.

can not find channel named "::perl::SCALAR(0x7fa3ab87cdc8)"
     while executing
"gets ::perl::SCALAR(0x7fa3ab87cdc8) {}"
     invoked from within
"::perl::CODE(0x7fa3ab85a878)"

The relevant line is in the hande_connection subroutine:

      $message = Tkx::gets($client, $n);

The server seems to be acknowledging the connection, so I'm not clear 
why it can't find a channel, nor display any data (1,2,3,4,5) sent over 
the wire.

I understand that on the server side, using normal Perl sockets won't 
work because they don't integrate with Tk's event loop, hence using Tcl 
sockets (exposed via Tkx) is necessary; I assume this isn't an issue on 
the client side. However, I'm unclear what's going on with the error. 
Can anyone illuminate me?

Thanks,
Kevin

-- 
Kevin Walzer
Code by Kevin/Mobile Code by Kevin
http://www.codebykevin.com
http://www.wtmobilesoftware.com

-- 
Kevin Walzer
Code by Kevin/Mobile Code by Kevin
http://www.codebykevin.com
http://www.wtmobilesoftware.com