my $mask = "1" x ( 32 - $cidr ) . "0" x $cidr;