how to get filevent working?

Hello,

I try to get a Tkx application working with a socket. In Tk you can do
this with

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

Can anyone tell me how to do this the Tkx way?

(While searching I found a thread explaining how to poll. I do not know if
this would work for a server with Tkx.)

Thank you