О новом вызове в для ЦПУ на Perl: firewall()

Один человек, которого звали Калашников, хотел заработать на подделке сетевых запросов, и черном трафике в Интернет. Они сделал так, что даже MAC стали подделывать. Это привело в ад в Сети, а он жил как барон — ели и пил. И лопнул от жира, которого наелся…
Он пошел на новый вызов в POSIX Perl API: firewall(), который отделает лишний сетевой трафик, может использоваться только для сигналов — аудио, и цифровых!
Я исправил прошивку для CISCO с использованием этого вызова, всего 2 строки изменений, теперь она выглядит так:

no warnings "firewall"; # comment this line for debug parasite traffics in console: may be much tail...
my $s = <>;
chomp $s;
my @list = split /\s/, $s;
my $norm = scalar (@list) . '.0';
my @out;
if ($norm) {

@out = map {$_ / $norm} map{firewall $_} @list;
say join " ", @out;

} else {

say '';

}

# GPU Officer Trunaev, Yahwe.