open(my $pipe, "iptables -L abc |") or die "Error executing iptables: $!";
while (defined(my $line = <$pipe>)) {
   ...
}
close($pipe)
   or warn $! ? "Error closing pipe: $!" : "Exit code of iptables: $?";