5.2 最小的Perl Web服务器

• （供了解）下例代码显示了一个名为 type-o-serve 的小型 Perl 程序。这个程序是个很有用的诊断工具，可以用来测试与客户端和代理的交互情况。与所有 Web 服务器一样，type-o-serve 会等待 HTTP 连接。只要 type-o-serve 收到了请求报文，就会将报文打印在屏幕上，然后等待用户输入(或粘贴)一条响应报文，并将其回送给客户端。通过这种方式，type-o-serve 假扮成一台 Web 服务器，记录下确切的 HTTP 请求报文，并允许用户回送任意的 HTTP 响应报文。
• 这个简单的 type-o-serve 实用程序并没有实现大部分的 HTTP 功能，但它是一种很有用的工具，产生服务器响应报文的方式与 Telnet 产生客户端请求报文的方式相同。

#type-o-serve——用于 HTTP 调试的最小型 Perl Web 服务器
#!/usr/bin/perl
use Socket;
use Carp;
use FileHandle;

# (1) use port 8080 by default, unless overridden on command line 
$port = (@ARGV ?