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

 while(<query>)
{
($num, $ip) = split(' ');
print "output: $num $ip\n";
}
close(query);