#! /bin/bash
pfiles 2>/dev/null `cd /proc;echo *` \
		|awk '/^[0-9]/{idpid=$1;idproc=$2}/ AF_INET6? .*port: /{printf "%6s%-50s %15s:%d\n",idpid,idproc,$3,$5}' \
		|sort -t : -k 3 -n