Доработать маленький скрипт на Perl

Вот сам скрипт

my $hcnt = 0;

foreach my $k_ip (keys %summary) {

if ( ($summary{$k_ip} * $time_k) >= $ddos_limit ){

print "Banned - $k_ip\t\t with ". $summary{$k_ip}*$time_k ." hist per minute\n";

system("/sbin/ipfw table 80 add ". $k_ip);

$hcnt ++;

}

}

print "\n";

print "Total banned - $hcnt hosts\n";

print "======================\n";

print "\n";

Нужно сделать так, чтобы он заносил в бан все ip, которые возращают ошибку 444 (канал забивается слишком много запросов, я хочу отсекать их на уровне файерволла а не nginx).