my (@ports,@dests,@sources,@protos);
my ($fw,$acl);