Select Code to Download

for (0..$#subnets) {
    # take each subnet and generate the hex out of the subnet divided 
+by 16
...
    print $pair;
}
print "\n";

print hexize(@subnets), "\n";

sub hexize {
    return sprintf("%02x%02x%02x%02x", @_);
}