查找QQ和MSN服务器地址

fc5下装上vmware(网络接口设定为nat)后安装windowsxp系统，装上QQ和MSN,
在fc5下使用tcpdump解析虚拟机的网络接口发出的包，使用iptables对QQ和msn服务器地址进行阻挡

编写的perl脚本如下:

#!/usr/bin/perl -w
use strict;
use IPC::Open3;
pipe READ,WRITE;
if(fork){
        close WRITE;
        my %ip;
        while(<READ>){
                while( $_ = m/(\d+\.\d+\.\d+\.\d+\.\d+)/g){
                        next if $1 =~ /(192.168|127.0.0|0.0.0.0|172.16.160.)/;
                        if( exists $ip{$1} ){
                                next;
                        }else{
                                $ip{$1}=$1;
                                $1 =~ m/(\d+.*)\.(\d+)/;
                                print "$1:$2\n";
                                `iptables -I INPUT -s $1 -p tcp --dport $2 -j DROP`;
                                `iptables -I INPUT -s $1 -p udp --dport $2 -j DROP`;
                                `iptables -I OUTPUT -d $1 -p tcp --dport $2 -j DROP`;
                                `iptables -I OUTPUT -d $1 -p udp --dport $2 -j DROP`;
                        }
                }
        }
}else{
        my $pid=open3('>&STDIN','<&WRITE','<&STDERR','tcpdump','-nn','-i','vmnet8','-l');
}