perl 采集端口访问关系

use Data::Dumper;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
$ua->agent("Mozilla/8.0");
if ( $#ARGV < 1 ){ 
     print "Usage perl collect_netstat.pl Ipaddr Port  :!\n"; 
      exit(-1); 
     }; 

my $ip=$ARGV[0]; 
my $port=$ARGV[1]; 

###$var=`netstat -na |awk '{if (\$4 ~ $port) print \$0}' | grep LISTEN |grep ^tcp | awk '{print \$4}' | awk -F ':' '{print \$NF}'`;

##比如打开端口为3366和33667,进行精确匹配
$a=`netstat -nap | awk '{if (\$4 ~ ":$port\$") print \$0}'  | grep LISTEN |grep ^tcp | awk '{print \$NF}'`;
#$a=`netstat -nap | awk '{if (\$4 ~ "$port") print \$0}'  | grep LISTEN |grep ^tcp | awk '{print \$NF}'`;
print $a."\n";
if ($a=~ /.*?(\d+)\/.*?/sm){
  print