Select Code to Download

open(query, "netstat -na | awk '{print \$4}' | sort -nr |") || die "fi
+le not found!";

...
print "output: $num $ip\n";
}
close(query);

$query =  `netstat -ntu | awk '{print \$4}' | sort -nr`;
while(<$query>)
...
($num, $ip) = split(' ');
print "output: $num $ip\n";
}