ss -4ntuH|perl -lne '$_=(split/ +/)[5];/(.+):\d/?print$1:0'