[완료]쉘 스크립트 도움좀 부탁 드립니다.

#!/usr/bin/perl
 
use strict;
 
my $text = "/home/munsen/ip_range.txt";
my ($dropip, $accip);
open(FILE, "<$text");
 
my @include = <FILE>;
 
foreach (@include) {
    $dropip = $1 if /dropip=(.*)/;
    $accip = $1 if /accip=(.*)/;
}
 
# 공백 제거
$dropip =~ s/\s//g;
$accip =~ s/\s//g;
 
# ','으로 ip주소를 나눈다.
my @dropip = split/,/,$dropip;
my @accip = split/,/,$accip;
 
foreach (@dropip) {
    print `iptables -A INPUT -s ${_}/24 -j DROP`;
}
foreach (@accip) {
    print `iptables -A INPUT -s ${_}/24 -p tcp --dport 22 -j ACCEPT`;
}

iptables-save > FILENAME
iptables-restore FILENAME