my $server = IO::Socket::INET->new(
    LocalPort => 7777,
    Type     => SOCK_STREAM,
    Reuse => 1,
    Listen => 10
);
$mw->Tkx::fileevent($server, 'readable', sub { new_connection($server) });