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