sudo netstat -tan | perl -lane '$_ = $F[4]; $_ =~ /::ffff:(.+)(\:\d+)/; print $1' | uniq -c | less