OpenBSD sockstat like script (fstat parser)

sockstat

#!/bin/ksh

# Since OpenBSD does not have sockstat this script parses the output 
# of fstat to print a summary indicating which process is listening on which port

fstat | awk '
        BEGIN {
                OFS="\t";
        }
        {
                if ( NR == 1 ) {
                        print($1, $2, $3, $5, $7, "ADDR");
                }
                if( $0 ~ /tcp|udp/ ) {
                        if(!($0 ~ /[<-]-[->]/)) {
                                l = $1 "\t"  $2 "\t"  $3 "\t"  $5 "\t"  $7 "\t";
                                if($7 == "tcp") {
                                        services[$3] =  l $9;
                                } else if ($7 == "udp") {
                                        services[$3] = l $8;
                                }
                        }
                }
        }
        END {
                for(service in services) {
                        print(services[service]);
                }
        }
' | column -t