Select Code to Download

sub _in_cidr_dns {
    my ($cidr,$addr) = @_;
...
}

sub _ipv4_to_32bitbinary { join "", map {sprintf "%08b", $_} split /\.
+/, shift; }