#! /usr/bin/perl -w
 
@iplist=`ifconfig | awk '{print \$3}' | grep 'P-t-P:' | cut -d: -f2`; # получим список ip, vpn
 
for(@iplist){
 
    $chain = 'IN_'.$_; # имя цепочки для каждого ip имеет вид IN_ip или OUT_ip
    $traf= `iptables -L $chain -v -x | tail -n1 | awk '{print \$2}'`; # смотрим сколько трафика натекло
    print $traf;
 
}
 

sh: line 1: -v: command not found
Chain IN_10.0.1.3 (1 references)
target     prot opt source               destination
           all  --  anywhere             10.0.1.3
sh: line 1: -v: command not found