can not find channel named "IO::Socket::INET=GLOB(0x9184ed0)" at ./spshow_simple.pl line 28.
line 28: Tkx::fileevent( $server, readable => [\&new_connection, \$server]  );