#!/usr/bin/perl

use strict;
use warnings;
use IPTables::IPv4;
use Data::Dumper;

my $table = IPTables::IPv4::init( 'filter' );

my @rules = $table->list_rules( 'counters' ); # put your chain in here
#$table->zero_entries( 'counters' );
#$table->commit();
my $now = time;

#my $counters = {};

print Dumper @rules;

=head
foreach my $rule ( @rules ) {
    $counters->{
        $rule->{ 'in-interface' } . '-' . $rule->{ 'out-interface' }
    } = $rule->{ 'bcnt' };
}
=cut
#print Dumper $counters;