my $success = run 
          [$ipt_cmd => 'iptables-restore'], 
          '<', \(join("\n". @iptout)),
          '>', \my $cmdout, '2>&1';