Moving forward, but not all the way.
The $fh (filehandle) is not the same as $server. My error:
can not find channel named "IO::Socket::INET=GLOB(0xa119ed0)" at ./spshow_simple.pl line 24.
Offending sourcecode line: Tkx::fconfigure($server, -blocking => 0);