Select Code to Download

use strict;
use warnings;
...
for (grep { $count{$_} == 256 } keys %count) {
   print(unpack_ipv4($_), "/24\n");
}

my %count;
print("$_/24\n")
...
       map get_subnet($_, 24),
       map pack_ipv4,
       keys %hashIPs;