perl 办琩高祘

- い瓣WEB秨祇呼蹈 (http://www.webasp.net)
-- м砃毙祘 (http://www.webasp.net/article/)
--- perl 办琩高祘 (http://www.webasp.net/article/8/7783.htm)
-- ゼ
-- 祇ら戳 2003-09-13
#  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";  
webasp.net