perl 域名查询程序

# 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";