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

##</code><code>##

my $fh = Tkx::open("| @cmds <$null 2>\@1");
Tkx::fconfigure($fh, -blocking => 0);
Tkx::fileevent($fh, readable => [\&readdata, $fh]);