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

Yes, I made the fileevent line Tkx-style.