#  perl 国内域名查询程序
#  flybird@chinaasp.com
#  2000-9-22
#  perl 写socket程序确实很简单。

use io::socket::inet;
$fqdn="ourstory.com.cn";
$server = whois.cnnic.net.cn;
$sock  = io::socket::inet->new("$server:43") || die "fail";
print $sock "$fqdn\n";
@ret=<$sock>;
print "@ret";  
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!