Wise Monks,

What is wront with this code?

use strict;
use warnings;
use IO::Socket;
use Tk;
$| = 1;

my $server = IO::Socket::INET->new(
    LocalPort => 2345,
    Type      => SOCK_STREAM,
    Reuse     => 1,
    Listen    => 10
  )
  or die "Error: $@\n";

$SIG{CHLD} = sub { exit };
my $entry = "start...";
my $wsk   = \$entry;
my $main  = MainWindow->new( -title => 'Socket - listen', );
my $ent1  =
  $main->Label( -text => "I'm waitin on port 2345\n So, you tell me...
+", )->pack();
my $ent2 = $main->Label(
    -text => $entry,

)->pack();
my $child;
my $guzik1 = $main->Button(
    -text    => 'Exit',
    -command => sub { kill 9, $child; exit 0 },
)->pack( -side => 'bottom', );

$child = fork();
if ( $child == 0 ) {
    while ( my $client = $server->accept() ) {
        while ( defined( my $in = <$client> ) ) {
            print $in;    #control
            $ent2->configure( -text => $in );
        }
    }
}

MainLoop()
[download]

When I send something on 2345 port I get error:
Attempt to free non-existent shared string '_TK_RESULT_', Perl interpreter: 0x2d 2eba4 at C:\dyr-win\notes\socket_tk2.pl line 36, <GEN1> line 1.
Free to wrong pool 2d2dbb0 not 273d08 at C:\dyr-win\notes\socket_tk2.pl line 36, <GEN1> line 1.

System: WindowsXP,
Perl: v5.8.8 built for MSWin32-x86-multi-thread

thanks for help,