ss -nat | awk '{++S[$1]} END {for(a in S) print a, S[a]}' netstat -nat | awk '/^tcp/ {++S[$NF]} END {for(a in S) print a, S[a]}' netstat -n | awk '/^tcp/ {++S[$NF]} END {for(a in S) print a, S[a]}'