いつぞ書いたあほhttpdのコードを縮めていた。 ちゃんと終了しない悪い人。127.0.0.1:9999とかで繋げる。 use IO::Socket;$SIG{CHLD}=sub{wait};for($s=new IO::Socket::INET( LocalPort,9999,Listen,5,Reuse,1);$c=$s->accept;){if(!($p=fork)){while( <$c>…