其实这就是在LWP模块上。那天在论坛提了一下，因为没有思路。
现在找到解决问题的模块，就把案例代码贴出来。
这个也是一个很重要的东西。后面会添加到模块里面去。
#!/usr/bin/perl use LWP::Simple; $url="http://www.163.com"; $doc=+(head $url)[-1]; print "$doc\n";
执行结果：
root@smart:~# perl test.pl nginx
