#!/usr/bin/perl

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

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