That is right, but the example uses a file instead of a socket:

my $fh = Tkx::open("| @cmds <$null 2>\@1");
[download]