用Perl写代理服务器程序

这些天被学校强迫学Windows管理，坐在机房里无聊，用Perl写了一个Proxy程序，可用来在自己机器上开HTTP代理服务。功能极其简陋，偶尔会block，如果真用它做代理简直就是在虐待自己电脑。
我叫他CPS(Crude Proxy Server)。现在升级到了v0.1.0，添加了Broken Pipe和Child信号量处理函数，Linux环境下并发访问不会出现僵死进程了，Win下仍会发生fork failed。考虑将来建立进程池来管理子进程，以提高性能。