count tcp connection by process, base on ss command line

ss.pl

use strict;
use warnings;
 
my @lines = `ss -atp`;
my %hash;
for my $line (@lines) {
    if($line =~ /pid=(\d{1,9})/) {
        $hash{$1}++;
    }
}
printf "%s %10s   %s\n", "pid","tcp_count","cmdline";
for my $pid (keys %hash) {
    my $cmd = `cat /proc/$pid/cmdline`;
    printf "%5d %5d     %s\n", $pid,$hash{$pid},$cmd;
}