Why not use inetd or xinetd? they handle the sockets, sessions, concurrent connections, and host security parts pretty well. keep in mind that there are many freeware telnet servers that may do exactly what you need. Writing a full-fledged telnet server could be a difficult thing to do. the parent would continue to listen or new connections and the child would then handle all commands from the newly-connected client. when a connection is accepted, you'd fork into a child and a parent. Well, you'd need to have a main loop using the listen function to accept incoming connections on port 23. Look into its types of servers or its section on modes, in the DESCRIPTION. My $req = 'GET / HTTP/1.1\r\nHost: $ARGV\r\n\r\n' įor a basic server, try looking into NetServer::Generic. My $server = IO::Socket::INET->new(Proto => 'tcp', My $server = new IO::Socket::INET(Proto => 'tcp', Print 'client $client_num got req:\n$whole_req' My ($client, $client_num) = 'thread created for client $client_num\n' My $listener = IO::Socket::INET->new(LocalPort => 3126,
