Убейте FINished сокеты (используя libpcap - tcpdump / tcpkill)

Я пытаюсь создать небольшую службу, которая отслеживает и убивает сокеты, у которых есть ПЛАВНИК флаг. Я могу получить их с tcpdump (Я также пробовал tcp [13] & 1):

tcpdump "tcp[tcpflags] & tcp-fin != 0"

tcpkill предполагается использовать тот же интерфейс, что и tcpdump, но это не работает. Я пробовал кучу команд, но это должно быть просто (-i eth0 необязательно):

tcpkill -9 "tcp[tcpflags] & tcp-fin != 0"

Что говорит (но ничего другого, успешно tcpkill выводит данные):

tcpkill: прослушивание eth0 [tcp [tcpflags] & tcp-fin! = 0]

Если посмотреть на исходный код, он должен передать в pcap правильный фильтр (между скобками []). Использование Perl-скрипта с Net :: Pcap Я могу определить, что фильтр работает нормально. Я не знаю, что я делаю не так, или проблема в более старой версии tcpkill / pcap. Любая помощь с tcpkill или помощь с использованием perl Net :: Pcap убить сокеты будут оценены. Спасибо!

#!/usr/bin/perl

use strict;
use warnings;

use Net::Pcap;

my $err = '';
my $dev = 'eth0';

my ($address, $netmask);
Net::Pcap::lookupnet($dev, \$address, \$netmask, \$err);

my $pcap = Net::Pcap::open_live($dev, 1500, 1, 0, \$err);

my $filter;
Net::Pcap::compile($pcap, \$filter, "tcp[tcpflags] & tcp-fin != 0", 0, $netmask);
Net::Pcap::setfilter($pcap, $filter);

while(1)
{
 Net::Pcap::loop($pcap, 1, \&process_packet, "packet found");
}

Net::Pcap::close($pcap);

sub process_packet
{
 my($user_data, $header, $packet) = @_;
 print "$user_data\n";
}

exit 0;