perl 域名查询程序

use IO::Socket::INET;

="ourstory.com.cn";

= 'whois.cnnic.net.cn';

= IO::Socket::INET->new(":43") || die "fail";

print "\n";

@ret=<>;

print "@ret";

• 未来我们可以和性爱机器人结婚吗？
  探索
• 什么是脂肪粒？如何消除脸部脂肪粒？
  女性
• 五个症状提醒你免疫力在下降了
  健康
• 韩式辣椒酱爆伍丁(图)－西餐菜谱
  美食
• 国庆节搞笑祝福短信
  干货
• 女子体内爬出大量瓜子状活虫
  百态

• ·影响ORACLE性能的源头：性能调优原则
• ·将ACCESS的数据库转化为SQL SERVE
• ·黑客技术：Perl黑客需要知道的10件事
• ·用Perl语句来代替常用的操作系统命令
• ·用Perl制作页面计数器
• ·Perl操作Mysql数据库
• ·用 perl 实现文件上传
• ·用Perl语言进行Socket编程
• ·Perl 字符匹配实例解说
• ·Perl6的结构