system("$CMD $arg1 $arg2");


##</code><code>##

my $CMD = "/sbin/iptables";
my @arg1 = qw( -A INPUT -p tcp -m multiport --dport 80,8080 );
my @arg2 = qw( -s 10.10.10.10 -j DROP );

system($CMD, @arg1, @arg2) == 0 or die "can't fork: $!\n";