Для этого используется скрипт: #/usr/bin/perl use strict; use warnings; use 5.010; my $cmd='/sbin/ipfw'; my $ipfw="/etc/ipfw.rules"; system "$cmd", "-f table all flush"; my @values=qw ( ip_адреса_через_пробел ); foreach (@values){ system "$cmd", "table 1 add $_"; } system $ipfw;