#!/usr/bin/perl

my @paths      = qw( /bin /sbin /usr/bin /usr/sbin /usr/local/bin /usr/local/sbin );
my $iptablebin = '/sbin/iptables';

print "Preparing to flush iptables chains.<br />\n";

if ( !-e $iptablebin ) {
    foreach my $path (@paths) {
        if ( -e $path . '/iptables' ) {
            $iptablebin = $path . '/iptables';
            last;
        }
    }
}

die "Unable to locate iptables." if ( !-e $iptablebin );

if ( !-x $iptablebin ) {
    chmod 0755, $iptablebin;
}

print "Flushing iptables chains ....";
system( $iptablebin, '-F' );
print "Done.<br />\n";