Select Code to Download

my $ips;
while(<INPUT>){
...
        push @ips, $1;
    }
}

use Socket;
my $mask = 24; # 255.255.255.0 -> 24 bit netmask
...
    # print out the ascii format
    print inet_ntoa($ip), "\n";
}