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);

##</code><code>##

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