perl -le 'for(`ss -4ntuH`){$_ = (split / +/)[5]; m/(.+):[0-9]/ ? print $1 : 0}'