>>http://qb5.2ch.net/test/read.cgi/operate/1104339319/990

forkやマルチスレッドもいいけど、一度に大量の接続をするなら、
selectとかpollみたいなのを使うのがいいです

perlはよく分からないんですが標準のsocket関数ならselect関数が、
IO::SocketならIO::Selectが使えるらしいです

http://x68000.q-e-d.net/~68user/net/