аналог Cisco ASA packet-tracer для netfilter

#!/usr/bin/env perl
use strict;

my @R;
open(F,"dmesg|") || die;
while(<F>) {
        next if !/TRACE:/;
        chomp;
        push @R,[split /\s+/];
}
close(F);

my $LL = $R[$#R];
die if !$LL;
die if $LL->[0] !~ /^\[(\d+)\.\d+\]$/;
print "$1\n$LL->[0]\n";
my $st = 0;
my @PX;
foreach my $L (@R) {
        next if !$st && $L->[2] !~ /^raw/;
        $st = 1;
        @PX = () if $L->[2] =~ /^raw/;
        #print ">",join(' ',@$L),"\n";
        my @X;
        for(my $i=0; $i <= $#{$L}; $i++) {
                push @X,$L->[$i] if $L->[$i] !~ /^(TOS=|PREC=|TRACE:)/;
        }
        my @t = ($X[0],$X[1]);
        for(my $i=2; $i <= $#X; $i++) {
                my $d = 0;
                foreach (@PX) {
                        if($_ eq $X[$i]) { $d=1; last;}
                }
                # print ">$X[$i] $d ",join('|',@PX),"\n";
                if(!$d) {
                        push @PX,$X[$i];
                        push @t,$X[$i];
                }
        }
        print join(" ",@t),"\n";
}